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MODULE ERF CATITLE ‘Errorlog Report Formatter' | 
| 
| 


IDENT = 'VO4=000" ) = 
! The version. number above must be changed in two places. 
i. Search for ‘IDENT =". 


' 
PETTITT TI LILI L ILI LI LLL LLL LLL LE LLL ELI Tiiiiiiiiiitiiiiiiiti iii 
'® 

'® COPYRIGHT (c) 1978, 1980, 1982, 1984 B 

't DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 

'® ALL RIGHTS RESERVED. 


® 
é 
® 
® 
. ® 
tt THIS SOFTWARE id FURNISHED UNDER A LICENSE AND MAY BE USED AND gl * 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * 
ay E ANY OTHER * 

2 ® 
't OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
'® TRANSFERRED. * 
! s 
t® THE ot te IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
1 CORPORATION. * 
we 

® 

® 

* 

& 

* 


is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
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B8s is SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 
i 
008 sciatica tiara ian inant sdedineeiebidceamaads en elemeatsinaicaaat 
$03 144 
Oe FACILITY: ERF, Errorlog Report Formatter 
003 i ABSTRACT: 
003 ! This is the main routine for ERF. ALL exit paths must return 
003 ! here to exit. 
003 ! 
0039 ! 
Bee ENVIRONMENT: 
B0e VAX/VMS operating system. unprivileged user mode, 
O44 AUTHOR: Elliott A. Drayton | 
0046 1 | Modified by: 
47 0047 ! 
48 0048 ! V03-026 EAD0197 Elliott A. Drayt 23-Jul-1984 
rH seh Added code to check version tet me in VALIDATE PACKET. | 
51 boss ! v03-025 EADO199 Elliott A. Drayt 66-Jul-1984 
26 $036 : e LSTLUN own and initialized %t fren syecom. Cleared 
27 0084 } MAILBOX. CHANNEL which is now in syecom | 
55 055 ! v03-024 EAD0180 Elliott A. Drayt 26-Jun-1984 
56 0056 ! Add workstation device class oy Sass /LOG report any 
57 0057 : files that were created. 
| 
| 
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H 8 0058 1! H 
; 9 $39 1! v03-023 EAD0170 Elliott A. Drayton 4-May-1984 | : 
: eo 399 : } Added context parameter to FILE_SCAN. | : 
: 6 p06 1/ v03-022 EAD0140 Elliott A. Drayton 12-Apr-1984 | : 
: o7 Seer : } Removed reference to EMBETDEF. | : 
: 65 0065 1 V03-021 £AD0130 Elliott A. Drayton doar 1984 : 
: 66 Bpe8 ! } Moved image_loader and its support routines in to ERFSHR. : 
i 68 0068 1} v03=020 EAD0119 Elliott A. Drayton 22-Mar-1984 
: 4 54 : Add support for the UNKNOWN keyword. : 
: 71 0071 1: v03-019 EADO117 Elliott A. Drayton 21-Mar-1984 ; 
; ig O07¢ | Fixed translation of loadable image name. ; 
; «7% 0074 1! v03-018 SARO209 Sharon A. Reynolds 10-Mar-1984 ; 
, 2 72 0075 1! - Fixed a bug in write_msg so it checks the contents of : 
: 0076 1! out ut fh98, : 
con oe 0077 1! = anger he call to write_msg so that the address of the : 
3 re Bare : command Line descriptor is passed. : 
: 80 0080 1: v03-017 £AD0116 Elliott A. Drayton 9-Mar-1984 ; 
; 8 Boas : Removed emb_buf and syecom_buf. : 
; BS 0083 1: JMG0013 Joel M. Gringorten _ B-Mar-1984 ; 
;: ww 0084 1! Output command Line at end of report if 10 is directed . 
; 8S 0085 1! to a file. : 
; «© 0086 1! : 
: «687 0087 1! v03-016 EAD0107 Elliott A. Drayton 29-Feb-1984 3 
; @ 0088 1! Fixed problem in validate_packet which prevented unknown $ 
; 4 9494 ' error packets from being Tdentified. : 
: 91 9091 i V03-015 EAD0104 Elliott A. Drayton 29-Feb-1984 ; 
; 3 93 ! } Major clean up. : 
> Oh 0094 1 SARO189 Sharon A. Reynolds 13-Feb-1984 F 
; 5 0095 1! - Added the ERF_NOTFOUND message test at EOF. | 3 
s % 0096 1! - Added summary specific test for summary update calls. : 
; 44 sia 4 : - Added two parameters to the Brief_c_dispatcher calls. : 
: 99 0099 1 JMG0012 Joel M. Gringorten. 7-F eb-1984 ; 
5 10 8190 : Added support for /statistics qualifier. : 
: 102 61 ¢ 1 i v03-014 JMGO00S Joel M. Gringorten 29-Dec-1983 ; 
; 103 0103 1! Added eupgert for /summary=histogram. ; 
3; 104 aie 7: - Added histo output dispatch to erf_control. | : 
; ine Bip2 : - Added histo update dispatch to process_file. | : 
: 107 0107 1: v03-013 SARO172 Sharon A. Reynolds 16-Nov-1983 | F 
: 108 8108 1! - Added Ae ot + entry support. ; 
; 109 109 1! - Updated the BOX. ¥RK_ type values for new devices. : 
: 110 110 1! - Completed the device tables. : 
ae bb time eB - Fixed a bug with /include=mem/summary=mem, the summary : 
3 6 We ! statistics were counted twice. : 
> 114 0114 1 VO3-012 SARO165 Sharon A. Reynolds 14-0 t-1983 ; 
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' 
| 
- Removed the goes that coynte popegecener cereneue | 
entries to fix a bug. (/incl=logm/excl=DU). 

- Fixed a bug with the report type and /SID qualifier. 
- Changed erf_norep to erf_invreptyp with fatal severity. 
| 


v03-011 SARO150 Sharon A. Reynolds 
Fixed a bug in the ‘validate_packet’ routine. 


V03-010 SARO138 Sharon A. Reynolds 20-Sep-1983 
Fixed bug in code that determines whether to init commons. 


V03-009 SARO136 Sharon A. Reynolds 12-Sep-1983 
Added code that removed the mscp info msg first part. 


V03-008 SARO128 Sharon A, Reynolds 7-Sep-1983 
Added routine to initialize the qiocommon, opcode, 
and modes commons. (Init_commons routine). Replaced 
debugging error messages with permanent error messages. 


V03-007 EAD0006 Elliott A. Drayton 23-Aug-1983 
Added routines to open and parse text Library records which 
are used to build internal tables. 


V03-006 SAR0062 Sharon A. Reynolds, 20-Jun-1983 
Fixed bug with processor type in ‘validate_packet'. 


j 
| 
v03-005 SARO031 Sharon A. Reynolds, 2-Jun-1983 
Put in a permanent solution to syecom buffer address problem. 
Removed some unneccessary code. 
| 
} 
| 


7-0ct-1983 


v03-004 SAR0023 Sharon A, Reynolds, | 11-May-1983 
Modified ‘process_packet’ and ‘full_dispatcher' so that the 
summary information will be updated. Also modified — 
*‘process_record’' so that multiple part MSCP entries will 
be output. Fixed a problem passing record length. 
Put in a temporary solution to syecom problem. 


v03-003 SARO011 Sharon A. Reynolds, 11-Apr-1983 
Added code to ‘validate_packet’ to set up the device 
class and type fields to the egerepr tate emb fields, 

as they are in different locations per entry type. 


v03-002 SARO010 Sharon A. Reynolds 99-Apr-1983 
Intialized status, status2. status5, and status4. Also 
added code to ensure process ng a ‘device entry’ before 
examining device class and device 
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type in ‘validate packet’. 
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FORWA 


RD ROUTINE 
pul\d_class_tebles, 


rf, 
Erf_control, 
FulT Gispatcher, 
Get t brary_text, 


EXTERNAL ROUTINE 


Exec_image, 
Device_type_entry, 
Get_vm 
4 loader, 
Lor$cTose, 
Loreget record 
Lor$ini-_control, 
Lbr$lookup_key, 
LbrSopen 
Lor$set_locate, 
b$cvt_dtb, 
LibSextzv, 
Lib$file_scan, 
Log_filename, 
Map_image, 
Parse_command 
Parse_output_ files, 
Record_selected, 
Timrb, 
Tiare, 
Unknown_dispatcher, 
Write_msg; 


EXTERNAL 


Class_dir: 
EMB: 


Input_fab: 
Input_rab: 
Input_nam: 
Input_xabfhc: 
Lstlun_rab_address: 


REF VECTORC WORD), 
SBBL T 


SBBLOCK 
REF SBBLOCK 
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18.56 -1984 2:42:14 
1argee=188t $3::35:17 
es emb fields 
es option_flag fields 
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Allocates and inits device class tables 
Top level routine 

Main control loop 

Cases to correct EXEC_IMAGE call 

Reads Library module record and calls parser 
Condition handler 

Initialize fortran data commons 

Routine to open and init the text Library 
Routine to compress and parse text record 


Reads ERRLOG.SYS & Loops till EOF 

Cases on report type to dispatcher 

Checks packet for CPU,ENTRY,CLASS&TYPE 
Write packet as read, no text translation 
Write error messages to output file 


Call loaded image with correct params. 


Allocates requested buffers 
Determines which image to load & loads 


Convert decimal to binary 


Signals filenames and error messages 


eueyee command Line 

Handles the opening of output files 
Determines if record should be processed 
Runtime statistics package 


32 V4.0 
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Formats and outputs reports for unknown error packets 
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3 1 7 : 1 Option_flag: REF SBBLOCK (], 
; ¢ 7 1 Output_fab: BBLOCK (J, 
; 790 #1 Output_nam: REF SBBLOCK (J, 
> 226 791 1  OQutput=rab: SBBLOCK (3, 
: 295 79¢ 1 Parser_data: REF $BELOCK (). | 
; $ 795 1  Parser“table: REF $BBLOCK (), 
; 794 1 Related_nam: $BBLOCK (J, 
3 8 795 (1 Rejected_fab: $BBLOCK (J, 

> 229 0796 1 Rejected-nam: SBBLOCK [), 
3 0 0797 1 Rejected rab: $BBLOCK (J, 

; 1 0798 #1 Summary _ lag: REF $BBLOCK 

; é 0799 1 Sye yecom SBBLOCK PSECT (SYECOM), 

5 800 1 Sys output_ rab_address: REF SBBL 

; 4 0801 1 Worst_error: SBBLOCK *CLONG), 

; 5 tf 1 Lnm$file dev desc, 

: 0805 1 Cong ee REF BLOCKVECTORC,2) FIELD (desc_fields), 

; 7 0804 1 Bus version REF VECTORL, WORD: 

; 238 0805 1 Bus _xfer_addr REF VECTOR , ! Address of bus xfer address table 

: 239 0806 1 Disk_image: REF BLOCKVECTORE 33 FIELD (desc_fields), 

; 240 0807 1 Disk_version: REF VECTORL, 1, ' Address of version number of device dependent code, 
; 24) 0808 1 Disk_xfer_addr: REF VECTOR 7 : Address of disk xfer address table | 
; eke 0809 1 Lp_image:~ REF BLOCKVECTORE,3) FIELD (desc_fields), 

> 24 0810 1 Lp_version REF VECTORCL,WORDJ, | 
; 244 0811 1 Lp_xfer_addr REF VECTORL.LONG), ! Address of lp xfer address table 

: 245 pats 1 Max_misc_type: erie 
: 246 0813 1 Max |p_type: BYTE 
; 247 0814 1 Packet_processor_xfer_addr: REF VECTORE ! Address of realtime xfer address table 
; 248 0815 1 Packet_processor_ image: REF 5S EETORE, 2) FIELD (desc_fields), 
; 249 0816 1 Packet_processor_version: REF VECTO 

; 20 0817 1 Realtime_image: REF BLOCKY ht 2] FIELD (desc_fields), 

: 251 0818 1 Realtime_version: REF VECTOR | 
3; 252 0819 1 Realtime_xfer_addr: REF VECTOR ! Address of realtime xfer address table 
: 253 0820 1 Scom_image: REF BLOCKV at ‘i, FIELD (desc_fields), 
> 254 0821 1 Scom_version REF VECTOR MW 
3 ge 08 § 1 Scom_xfer_addr REF VECTOR a ! Address of scom xfer address table 

: 256 0823 1 Tape-image: REF BLOCKY eT Tor i FIELD (desc_fields), 

s gor 0824 1 Tape_version: REF VECTO +f 

; 258 0825 1 Tape_xfer_addr: REF VECTOR ! Address of tape xfer address table 

; 259 b8 6 1 Translate_entry_table: REF vecTOR f 

: 260 827 1  Workstation_image: REF BLOCK ie 4 FIELD (desc_fieids), 

: 261 0828 1 Workstation_version: REF VECTO RDI. 

3 $6 O88) 1 Workstation_xfer_addr: REF VECTOR TONG 

: 26 0830 1 

3; 264 8 .o7 
: 265 ¢ 1 LITERA | 
; 26 bB 1 erts. facility = 8, ' Facility code for ERF 
; 26 0834 1 Word_size = 2, ! Number of b eytes in a word 
; 268 0835 1 Longword = 4, ! Number of bytes in a longword 
3 ; 0 } Descriptor_ Length = 8; ! Number of bytes in a string descriptor 

s 27 33 1 Own 

; 27 9 1 Lstlun: LONG; 

oS ay 40 1 

: 276 41 1 EXTERNAL LITERAL | 
: e775 § 1 Erf_ba devtyp. 
: ef 845 1 Erfbadevva 
a ae 844 1 Erf- ~badmodnam, 


ed 


ee 


ene Eee 13-$60-1984 $3: 36: 3 btsK dmen men Agteasctar® CRCSERF. B32;1 — (28 
rf_clstblerr, 
Erte evtera: 


rf-hera 


Erf_total, 
Erf_unkentry, 
Erf_unkclass; 
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SD(C"ERFLIB'); ! Defines string descriptors 
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v04=000 Ae ~geen18Be F3i35:13 — NabbwAAS FER sce RE ShCSerr.032;1 29 vo 
: 293 28 1 GLOBAL 3 
: 294 ° 1 Bus_devices: REF VECTOR Rpd ; 
; 295 1 Desc “table see REF BLOCK y eTOR 23 FIELD (desc_fields), 3 
; 296 1 Dev_addrs_ptr: REF VECTOR ! Address device name pointers 3 
; 297 65 1 deve celass=pt ptr: REF VECTORL,W GORD. 3 
> 298 64 1 sk_device REF VECTORL,WORDJ, ! Address * disk Coviee name table (e.g. DB) : 
: 299 65 1 bea cody i Function to be don 3 
; 300 r¢ 1 Herald: $BBLOCK (12), haaress of nessege “vector $ 
; 301 67 1 Inited rai $ 
3 O 0868 1 Input_des SBBLOCK Cdsc$k_d_blnjJ,! Allocate dynmaic descriptor $ 
; 94 1 Input_ file. count, 3 
; 304 3 0 1 Item_count, ! Used as index count 3 
: 305 71 #1 Library func: INITIAL (Lbr$c_read), 3 
; 306 1 1 Library_index, : 
: 307 i Library_type: INITIAL (Lbr$c_typ_txt), : 
; 308 0874 1 Lp_devices: REF VECTORL,WORDJ, 3 
; 309 0875 1 Max_bus_type: BYTE, : 
; 310 Bare 1 Max_classes: YTE, 3 
: 11 0877 1 Max_ =GPuL appease WORD, F 
: \¢ 0878 #1 Max_disk = tas BYTE ; 
: 31 0879 1 Max range_table_addr: REF VECTOR C,LONG), F 
; 314 0880 1 Max_realtTme_type: Byte. 3 
s 319 0881 1 Max_scom_ type: 3 
; 316 0882 1 Max_tape_type BYTE, : 
3 af 0883 1 Max “Workstation type: BYTE, F 
3 18 0884 1 Min_modules_desc: REF BLOCKVEC TORE: $i f IELD (desc_fields), : 
; 319 0885 1 Max_modules desc: REF BLOCKVECTOR IELD (desc_fields), : 
; 320 0886 1 Min_max_table sizes: REF VECTOR ;WORDS, : 
; 321 0887 1 Min_range_table_addr: REF VECTORE,LONG), : 
: 322 08 1 Module_name_desc, : 
3 Ses 0889 1 Packet_proceéssor_ devices: REF VECTORC,WORD) : 
: 324 0890 1 Processor_type_tabl REF VECTOR C,WORDS, : 
: 325 0891 1 Realtime devices: REF VECTORC,WORD), : 
; 326 0892 1 Record_desc: SBBLOCK fascsk -d_bin, : 
3 $56 0893 1 Scom _devices: REF VECTORC,WORDJ,~ ; 
; 328 0894 1 Selected, ' Count of records selected for processing ; 
3; 329 0895 1 Summary _ dispatcher_ addr, ! Transfer address of summary dispatcher : 
; $39 0896 1 Tape_devices: REF VECTORC,WORD], : 
s 3351 0897 1 Tc. ol@_address: REF VECTOR ,WORD], : 
; $§ 0898 1 Table_ Length: : 
:. oe 0899 1 ext_ffa: VECTOR C2) : 
: 334 900 1 Token_desc: SBBLOCK decen_p.ouns, : 
3 5 901 1 Total_selected, ° 
: 33 902 1 Total ~rejected : 
: 905 1 Unknown_entry INITIAL (false), 

3; 338 pone 1 Workstation ‘devices: REF VECTORL WORD); 

; 339 905 1 

; 340 906 1 Builtin 

3; 341 907 1 FFS ; 

: 342 0908 1 


coh 1 7 


None 
i Routine value 
Worst error is returned. 
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44 9 1 Routine ERF = ! Main routine for ERF 
45 9 BEGIN 
rk 9 14+ 
rtf 2 ! Functional description 
49 9 This is the top level routine for the ERF facility. 
50 9 It calls the main control loop. Any errors encountered 
23 M will be passed back to this routine. 
36 3 i Calling sequence 
2? i ERF () from the command Language interpreter 
ef ; i Input parameters 
59 ; AP = Address of argument List passed from CLI 
1 2 i Output parameters 
\) 
9 
y 
9 
9 
‘S 
9 
9 
9 


COOooooooooooooooocoo 


093 channel, 
O38 status; 
09 
094 . 
094 'SET UP HANDLERS --- 
094 ' Declare condition handler to record severest 
Beez : error message issued, to be returned on exit of image. 
0945 
094 ENABLE handler; 
094 
0948 
94 


1 
035 iCALL MAIN CONTROL --- 


951 ' Invoke the main subroutine. If any errors are encountered Ener 
44 $326 ! will be returned immediately, if fatal, or saved in WORST_ERRO 
95 ! for exit processing. 
89 0954 ! 
90 955 
91 328 Worst_error = Erf_control() ; 
3 95 
9 Bee 
94 95 ! 
95 960 2 'RETURN TO USER --- 
96 961 ! Return to the user. Variable WORST_ERROR is maintained b 
97 306 $ the error handler (see routine HANDCER). If no messages ave 
98 96 : been signaled then the initial value of WORST_ERROR, SSS$_NORMAL, 
ise He will be returned. 
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96 
se ; Return .worst_error; ! Return contents of WORST_ERROR 
96 END; 
TITLE ERF Error log Report Formatter 
- IDENT \V04-000\ 
-PSECT S$PLIT,NOWRT,NOEXE, PIC,2 
42 49 4C 46 $2 45 6000 P.AAB: .ASCII \ERFLIB\ 
one 
000C 


-BLKB 
8000000 PAA Nees P.AAB 


.PSECT SOWNS,NOEXE, PIC,2 
00000 LSTLUN: .BLKB 4 

-PSECT $GLOBAL$,NOEXE, PIC,2 
00000 BUS_DEVICES:: 
00004 DESC_TABLE ADDRESS: : 
00008 DEV.ADDRE BTR: 
0000¢ DEV_CLASS PTR: 
00010 DISK DEVICES: : 
00014 FUNCTION: | 


-BL 
00018 HERALD::.BLKB 
00024 INITED_COMMONS: : 


00028 INPUT_DESC:: 
~BLKB 
00030 INPUT FIle COUNT : 
00034 ITEM -COUNT: 5 
00000001 00038 LIBRARY FUNC: 
0003C LIBRARY INDEX: : 
00000004 00040 LIBRARY TYPE : 
00044 LP_DEVICES:: 
00048 MAX _BUS_TYPE :: 
00049 MAX_CLASSES: : 
.BLKB 
0004A MAX_CPU_TYPES:: 
.BLKB 
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ERF 
v04-000 
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00000000 


1S-seont9ee gisagct4 
0004C MAX_DISK_TYPE:: 


90040 “BLKB 3 
50 MAX_RANGE TABLE. — : 
00054 MAX -REALTINE ei 
00055 MAX_SCOM. “AYbE 
00056 MAX_TAPE _{VPE:: 
00057 MAX WORKSTATION. TYPE : 
00058 MINMODULES DESC: 
0005¢ MAX MODULES DESC:: 
00060 MIN MAX TABLE SIZES: 
00064 MIN_RANGE TABLE ADDR: : 
00068 MODULE NAME DESC: 
0006C PACKET_ PmaEB On DENICES 
00070 PROCESSOR TYPE. TABLE: 
00074 REALTIME. -DEVICES:: 
00078 RECORD_DESC: : 
00080 SCOM_DEVICES: 
00084 SELECTED:: 
.BLKB 
00088 SUMMARY DISPATCH 
0008C TAPE_DEVICES:: 
-BLKB 
00090 TABLE_ADDRESS:: 
-BLKB 
00094 TABLE_LENGTH:: 
-BLKB 
90095 “BLKB 
98 TEXT_RFA:: 
-BLKB 
Q00A0 TOKEN DESC: 
QOOA8 TOTAL_SELECTED:: 
-BLKB 
QOOAC TOTAL_REJECTED:: 
-BLKB 
00080 UNKNOWN _ ENTRY:: 
00084 WORKSTATION DEVICES:: 
-BLRB 4 
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ERF 
v04-000 14-Sep-1984 29: Dd 
ERFLIB_DESC== 


hed 11 
: CERF ..SRCJERF .B32;1 (4) 


N 
LBRSLOORUP_KEY, LBRSOPEN 
LBR Vt OtATES ILE Stan 


E ie w AG 
ateet PARSE _OUTPUT_FILES 


ined 


$ 
$ 
5 
0 
R 
T 


DemPo 


MEe VHEED—MEO 


LAG, SYECOM 
uTPUT RAB_ADDRESS 
ERROR, LAMSFILE DEV_DESC 
hae bus. VERSION 
“XFER » DISK_ IMAGE 
VER VERSION” DISK_RFER_ADDR 
eEXTRN LPL IMAGE LP_VERSION 
SEXTRN LP7XFER_ADDR> MAX_MISC_TYPE 
-EXTRN MA fE Rei YPE geAck iganeeston XFER_ADDR 


A “ir eR App 
-EXTRN SCOM_IMAGE StOM. VERSION 
-EXTRN SCOM-XFER_ADDR, TAPE_IMAGE 
-EXTRN TAPE-VERSION, fAPE_XFER_ADDR 
EXTRN TRANSLATE ENTRY TABLE 


EXTR K 
eEXTRN WORKSTATION XFER 
-EXTRN ERF_BADEVTYP, ER BADEVVAL 


“8 DMODNAM ERF_CLSTBLERR 
-EXTRN ERF-CVTERR, ERR HERALD 
TEXTRN ERF INPUT ERF COADERR 


“N ERF_INVREPTYP 
“EXTRN ERF ~TOOMANCLS, TA 
-EXTRN ERF_UNKENTRY, ERF_ONKCLASS 


-PSECT S$CODE,NOWRT, PIC,2 
00 ERF: - WORD tg nothing 3 
¢ MOVAL 5 
CALLS #9, > ERF_CONTROL : 
OE MOVL , WORST_ERROR : 
16 18: «WORD Save nothing : 


ERF 
v04-000 


; Routine Size: 


Errorlog Report Formatter 


40 bytes, 


7é 
00000000v 00 


Routine Base: 


ifoseoctoge 25eaget4 yA 


7E D4 00018 
SE BD O00 
04 nh 0 
03 F 0 
0 0 


SCODE + 0000 


CLRL 

vont 

a 
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14-Sep-1984 12:27:17 DISKSVMSMASTER: CERF 
9 outine ERF_CONTROL = ! Main control loop for ERF 
9 EGIN 
9 
9 +e 
Functional description 


This is the control routine for the ERF wpe tier, 
Any errors encountered will be passed back to this routine. 


Calling sequence 
ERF_CONTROL () 
Input parameters 


Output parameters 
None 
Routine value 
Worst error is returned. 


Field_size: BYTE INITIAL (6), 
Scan_context: INITIAL (0), 

Start_position: INITIAL (0), 

Status, ! Returned status 
pumeery index, ! Index for summary type 
Text_lib_name, 

Out_Tile 


1 

Unconditional call to the runtime statistics package initialization routine. 
TIMRB(); 

INIT_DYNDESC (input_desc); 


4 
! 
Initialize the number of Lines output. 
Syecom(sye$b_lines] = 1 ; 


0-74 
OSRCIERF 832; 1 
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v04-000 14-Sep-1984 12:27:17 DISKSVMSMASTER: CERF .SRCJERF .832;1 (6) | 

7 ee ae ii 
: 458 1021 2 | OPEN TEXT LIBRARY | ; 
; 459 10 ¢ ! Call LBR interface routines to prepare the Library which 3 
3 ret 18 ? ! will provide text for output reports. | : 
; 46¢ 1025 2 CALL_FUNCTION ( Open_text_lib () ); | ; 
; 46 1026 : 
TBE. al | 
: 466 1029 2 | PROCESS COMMAND LINE | ; 
: 467 1030 § ! (Call CLI interface routines to parse command Line and setup $ 
: re 1933 ! internal tables for further processing. | ; 
: 470 1085 CALL_FUNCTION ( Parse_command () ); : 
: of We 8 oat 
: 47 1036 2 | If /SUMMARY then Load the ERFSUMM.EXE. If ERFSUMM.EXE not found clear ; 
> 474 1037 § ! summary flag and continue. 3 
: a8 1039 3 
: rth ee if -option_flag Copt$v_summary_qual] then : 
; egin F 
: 479 Hk Status = Map_image( AD ("SYSSSYSTEM:ERFSUMM.EXE'), Summary_dispatcher_addr) ; ; 
> 480 1043 3 If NOT .status then option_flag Copt$v_summary_qualJ = 0; : 
> 481 1044 2 End; $ 
a ig : 
: 484 1047 Syecom({sye$l_mailbox_channel] = 0; : 
: be 1009 3 
: ri $4 ae : ; While file names exist in the command Line go process the file. 3 
> 489 1052 2 | } 
; re 1938 uate GET_VALUE ("FILE_SPECS', input_desc ) do | : 
2 egin 3 
: 492 1055 3 input. tab ffebsb. ins} = .input_desc Cdsc$w_length); : 
; 493 1056 input_fab Cfab$l_fna] = .input_desc dsc$a_pointer); : 
> 494 1057 input_fab Cfab$l_ctx] = msg$_searchfail; ! Setup the error message : 
3 495 1058 LIBSFILE_SCAN ( ' Call file scanner with - 3 
> 496 1059 Input_fab ' address o .° $ 
; 497 1060 Process_file, ' success action routine, - : 
; 498 1061 Log_filename, ' error action routine, - : 
3; 499 1008 Scan_context ); ' and scan context. : 
; 500 106 End; | 3 
; 501 1064 : 
2 ee , 
; ope 1967 If /S RY then output summary report type requested. : 
: 506 1069 2 If .option_flaglopt$v_summary_qual) | ; 
; 507 1090 Then P on eens ai : 
; 4 137 Begin | : 
: 510 1078 Until .start_position GTR 6 do : 
s 31% 1074 4 Begin : 
; 512 1075 4 | : 
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1 7 FFS (start_position,field_size, 
1 a -Summary_flag,summary_index) ; 
1 079 Case .summary_index from 0 to 5 of 
1 80 Set 
1 4 
1 § (OJ: 
08 Function = all_summ_out; ! Initialize function to output 
bae hey ! all possible summary information 
Bae C1]: 
08 Function = dev_summ_out; ! Initialize function to output 
43 ! device summary information only 
090 C2): 
091 Function = entry_summ_out; ! Initialize function to output 
O36 ! entry summary information only 
3 094 (3): 
3 095 Function = memory _summ_out; ! Initialize function to output 
3 096 ! memory summary information only 
098 (4) 
0 Function = volume_summ_out; ! Initialize function to output 
! yolume summary information only 
0 (5): 
0 Function = histo _summ_out; ! Initialize function to output 
S ! histogram summary information only 
0 COUTRANGE): 
8 EXITLOOP; 
0 TES; 


Exec_image ( Summary_dispatcher_addr, Lstlun, Function) ; 
start position = .summary_index + 1 ; 
ng ; 

End; 


' LOG MESSAGE 

! If /LOG requested and more then one input file 

! was processes then print total number of files processed, 
total records selected and total records rejected. 


If ~option_flagloptsy. l9g_qual 4 and .input_file_count gtru 1 then | 
signal (erf_total, 3, .total_selected, .total_rejected, .input_file_count); 


AAG AASOCAOAA A MINNIE BEBE EEE EP 
Bo US nF eho oO DO0 GOA PUM OOOO NON PUN 2 O Ooo GRU Lah De Od MO On OMA OOO Iron 


i] 
If /STATISTICS was specified then call the runtime statistics display routine. 
if .option_flaglopt$v_statistics_qual] then TIMRE(Lstlun) ; 
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' 
Write original command Line, if /REJECTED was not specified. 


if ( NOT .option_flaglopt$v_rejected_qual]_) then 
write_msg ( parser vobistertss cod tioed. 1); 


Errorlog Report Formatter ! 


! CLOSE OUTPUT FILES 


If .syecom EsyeS) foras) OR 
. soption.tlag Opt$v_binary_qual) 


BEGIN 
If .option_flaglopt$v_log_qual) 
then 


IN 
Local desc : VECTOR (2 Long); 
Descl0)] = .output_nam Eran birst): 
Descl1] = .output_nam [nam$l_rsaj; 


e 

Signal (msg$_created, 1, desc); 
END; 

END; 


Output_fab Cfab$l_ctx] = msg$_closeout; ! Assign error messages 
Rejected_fab Cfab$Sl_ctx] = msg$_closeout; ! Assign error messages 


ra sb Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab Ab db Ab Ab Ab db dh bh hb hh hh ah ah sh ah sl al 


SOoouw 
SSSLEARRANLESSLEALAVES Sa 


If .option_flag Copt$v_output_qual] AND 


-option_flag Copt$v_binary_qual 
en 
CALL_FUNCTION ( Sclose (fab = output_fab, err = log_filename) ); 


if -option_flaglopt$v_rejected_qual] 
en 

BEGIN 

If .option_flaglopt$v_log_qual) 
then 


BEGIN 

Local desc : VECTOR (C2,long); 
Desc(0)] = .rejected_nam Enangb_ rst; 
Descl1) = .rejected_nam ([nam$l_rsa 
Signal (msg$_created, 1, desc); 


CALL FUNCTION ( $close ( fab = rejected_fab, err = log_filename) ); 


Return .worst_error 
End; 
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V04-000 — 12ree= 188s 93:5 DISKSVMSMASTER:CERF.SRCJERF.B32:1 (6) 
53 46 52 45 3A 4D 45 54 53 59 53 26 59 10 P.AAD: ASCII \SYSSSYSTEM:ERFSUMM.EXE\<0><0> ; 
00 00 4 3 2 gf 4D 33 olf : 
99000018 B P.AAC: .LONG 22 : 
90 00° ¢ “ADDRESS P.AAD : 
00 00 53 43 45 50 53 SF 45 4C 49 46 P.AAF: ASCII \FILE_SPECS\<0><0> : 
0000000A 0 ¢ P.AAE: ton : 
0000000" 0004 “ADDRESS P.AAF : 
.EXTRN CLISGET_VALUE, SYSSCLOSE 
.PSECT $CODE,NOWRT, PIC,2 
OFFC 00000 ERF_CONTROL: 
,WORD Save R2,R3,R4,R5,R6,R7,R8,R9,R10,R11 : 0970 
58 90000000" 00 9E 0000 MOVAB LSTLUN, R11 : 
5a 000000006 00 9€ 0000 MOVAB LIBSSIGNAL, R10 : 
59 90000006 0 9E 9019 MOVAB LOG FILENARE RO ; 
28 90000 6 00 9€ 0001 MOVAB SYECOM+12, RB ; 
57 000000006 00 9E 0018 MOVAB INPUT FAB+52, R7 ; 
56 000000006 00 9E 000 MOVAB OPTION FLAG, R6 ; 
55 00000000' 00 9€E 000 g MOV FUNCTION. R§ ; 
SE 08 C2 000 SUBL2 #8, SP ; 
54 06 9 900 MOVE #6, FIELD SIZE + 0971 
‘ D4 00039 CLRL  SCAN_CONTEXT ; 
53 D4 00038 CLRL. —- START_POSITION : 
000000006 00 00 FB 003 CALLS #9 TIMRB + 1009 
14 A5 020E0000 8F DO 00044 MOVL  #34471936, INPUT_DESC + 1012 
18 AS D4 0004C CLRL —sINPUT_DESC+4 : 
68 01 90 0004F MOVE #1, SYECOM+12 + 1017 
00000000v 00 00 FB 00058 CALLS #0, OPEN TEXT_LIB + 1025 
07 50 €9 0005 BLBC statu : 
000000006 00 00 FB 0005 CALLS PARSE COMMAND : 1033 
01 50 ES 0063 1$: BLBS sr oer Tus, 28 ; 
4 00066 RET ; 
50 66 00 00067 2s: MOVL OPTION_FLAG, RO : 1040 
1B 60 OF a 0006A BBC #14, : 
74 AS OF O06 PUSHAB SUMMARY _DISPATCHER_ADDR + 1042 
00000000' 00 9F 00071 PUSHAB P.AAC F 
000000006 00 Q FB 0077 CALLS ) MAP_IMAGE ; 
08 E8 0007E BLBS STATUS, ~3$ > 1043 
50 66 DO 0081 MOVL OPTION NELAG, RO : 
01 AO 40 8F BA 90 BICB2 : 
13. AB D4 00089 3$: CLRL SY ve ons 31 > 1047 
14 AS OF 0 aC 4$: PUSHAB St : 1053 
00000000' OF PUSHAB : 
000000006 FB 95 CALLS ISGET_VALUE ; 
2 9C BLBC ; 
67 14 AS 90 0009F MOVB nO, T_DESC. INPUT FAB+5S2 + 1055 
FB OA? 18 A5 DO OOOA MOVL obs DESC+4, INPOT MP AB S4s : 1056 
E4 A7 0008123A B&F DO 6 MOVL #52 954 INP UT_FAB+24 > 1057 
4200 8F BB 6 B PUSHR #*M<R : 1058 
00000000v 9 F 00084 PUSHAB Procesé FILE ; 
CC A? 9F OOOBA PUSHAB INPUT FAB ; 
000000006 00 04 re BD CALLS #4, LTBSFILE_SCAN : 
C6 1 C4 BRB 43° : 1953 
50 66 D0 C6 5$: MOVL OPTION_FLAG, RO : 1069 
53 6 — €1 ¢ BBC #14, (RO), 15$ ; 


a 


—_—— 
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¥04=000 _ Fee tats rte Ee ee tn eed rr a a 
06 53 D1 CD 6$: CMPL START POSITION, #6 : 1073 

4— 14 0000 BGTR 5$ : 
50 000000006 Q DO 000D MOVL § SUMMARY_FLAG, RO t 1077 
52 60 4 EA 0000 FFS START POSITION, FIELDSIZE, (RO), - + 1076 
05 0 52 CF 0000 CASEL SUMMARY-INDEX, #0, #5 : 1079 

001D 0018 0018 0005 O00es 7$: WORD Bs? - : 

02 002 OQOEA + oak : 
11$-7$.- : 
12$-7$.- : 
13$-7$ : 

30 11 000E BRB 15$ + 1107 
65 01 DO OO0FO 8s: MOVL #1, FUNCTION + 1083 
17 11 OOOF BRB 14§ : 
65 08 DO 000F5 9$: MOVL #2, FUNCTION + 1087 
12 11 OOOF BRB 148 : 
65 04 dO OFA 10$: MOVL #4, FUNCTION + 1091 
OD 11 O00FD BRB 1 : 
65 06 DO OOOFF 11$:  MOVL #6, FUNCTION + 1095 
08 11 00102 BRB : 
a5 DO 00104 12$:  MOVL #7, FUNCTION + 1099 
03 11 00107 BRB 14 : 
65 09 00 00109 13$:  MOVL #9, FUNCTION + 1103 
33 DD 9010¢ 14$: PUSHL— RS + 1117 
: DD 0010 PUSHL R11 : 
74 AS OF 90119 PUSHAB SUMMARY DISPATCHER_ADDR : 
000000006 00 03 FB 00113 CALLS #3, EXEC_IMAGE F 
5 oe ae OO11A MOVAB 1(R2), START_POSITION : 1112 
AD 11 0011 BRB 6 : 107 
50 66 D0 91 15$:  MOVL OPTION_FLAG, RO : 1123 
60 95 001 TSTB = (RO) : 
19 18 001 BGEQ 16$ ; 
01 1C A} D1 01 7 CMPL = INPUT_FILE_COUNT, #1 : 
13 1B 00128 BLEGU 16$ : 
1c) AS pp 00120 PUSHL INPUT_FILE_COUNT + 1124 
7E 0094 C3 20 91 0 mova, I TAL-SELECTED, -(SP) ; 
000000006 BF DD 00137 PUSHL HERF TOTAL : 
6A 05 FB 0013p CALLS #5, CIBSSIGNAL : 
50 66 00 0140 16$:  MOVL OPTION FLAG. RO : 1130 
09 02 A0 E9 O14 BLBC (RO), 178 : 
000000006 Q 01 FB 00149 CALLS #1, TIMRE : 
66 DO 00150 17$:  MOVL OPTION FLAG, RO : 1136 
OF 6 A €0 001 BBS #10, (RO), 18$ : 
1 DD 001 PUSHL #1 + 1137 
000000006 DD 00159 PUSHL PARSER_TABLE ; 
000000006 3 02 FB 0015F CALLS #2, WRITE_MSG : 
F8 AS £8 00166 18$:  BLBS SYECOM+4,719$ + 1144 
0 66 DO 0016A MOVL OPTION FLAG RO > 1145 
26 60 1 €1 16 BBC wi, (RO), 208 ; 
66 p 171 198:  MOVL  OPTION_FLAG, RO > 1148 
6 174 TSTB —s_ (RO) : 
50 000000006 00 6 oolss Reet —SYTPUT_NAN, RO : 1152 
04 AE 8 0 BR 17F MOVZBL BRO) “pest ; 
| 
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Soc 12-Sep- 1382 #3: $8: :1 DISKSVMSMASTER: CERF .SRCJERF .B32;1 ” ai 
08 AE 04 AO po 1 OVL  4(RO), DESC+4 : 1153 
4 AF F 00189 PUSHAB DESC + 1154 
DD 0018C PUSHL # : 
, 00081073 F OD 001 E PUSHL #52 3 
3 FB 001 CALLS # Leesa AL : 
90000 0 09081 105A 8F 0000197 208: MOVL *# $8 4 oy TPUT_FAB+24 + 1159 
105A B&F DO O01A2 MOVL #528474, REJEC ECTED_F FAB+24 + 1160 
66 DO OO1AD MOVL OPTION. FLAG, R + 1162 
a 01 Ad €9 00180 BLBC (RO) 3 
12 6 1 €1 001B4 BBC wi, (RO), 218 + 1163 
9 DD 00188 PUSHL 9 + 1165 
000000006 9F 0O1BA PUSHAB QUTPY : 
000000006 0 FB 1¢0 CALLS # UYsscr LOSE ; 
4 E9 OO1C BLBC STATUS, 24$ : 
5 66 DO OO1CA 21$:  MOVL OPTION FLAG + 1168 
34 60 OA Fi 01CD BBC #10. (R AG, 58° ; 
60 95 00101 TSTB § + 1171 
1— 18 0105 BGEQ 38 : 
04 AE 000000006 00 9A 9010 MOVZBL REJECTED_NAM+3, DESC + 1175 
08 AE 000000006 00 00 001DD OVL  REJECTED“NAM+4, DESC+4 + 1176 
04 AE 9F OO1ES PUSHAB DESC + 1177 
01 DD O18 PUSHL #1 ; 
00081073 8F DD OO1EA PUSHL #52849 : 
A 03 FB O01FO CALLS #3, tTBSSIGNAL ; 
9 DD OO1F3 22$:  PUSHL + 1179 
000000006 00 9F 001F5 PUSHAB JECTED_FAB ; 
000000006 00 08 FB OO1FB CALLS rey Ssgk Ose ; 
07 E9 00208 BLBC 4$ : 
50 000000006 00 00 00205 23$: MOVL sors} Senkon, RO : 1182 
04 0020C 24$: ~— RET + 1184 


; Routine Size: 525 bytes, Routine Base: S$CODE + 0028 
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B=19 4 DISKSVMSMASTER: CERF .SRCJERF .832;1 . (3 
Routine PROCESS_FILE (FAB) = 


'e¢ 
} Functional description 


This routine processes one input file. It is 
called as an action routine from LIBSFILE_SCAN. 


i Calling sequence 
PROCESS_FILE (FAB) 


MEW —OOONOUE 


1! 

' 

' 

! 

' 

! 

4 

Input parameters 
FAB = address of input_fab. 
; Output parameters 
J 

J 

! 

' 

4 

1 

1 


Fat 


WR SO OONOUVUEWN “OOONOULS WO 0W 


None 
i Routine vatue 


Worst error is returned. 


AAA 
a a a ed dd 
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ROROPOMONMONEPUNNON 9 9 3 BQO OOO OOOO 0D 00000000 0MM@00H 
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5 

: 

H Fab: ref $bblock; 

5 

5 Local 

5 Status: $BBLOCK CLONG) 

: Desc: VECTOR C2,LONGS; ! General purpose descriptor 

6 
661 Own 
66 Class: WORD ' Class of the image to be loaded 
66 First_time: INITIAL (TRUE), ! Flag to know if this is first_time 
664 Type: ORD, ' Type of the image to be loade 

73? Xfer_addr: LONG ; ! Transfer address of the required image 
667 


eee ee ee ee ee ee ee ee eee ee ee eee eee Oe ow Se SS Se eee eee eee ee ee eee ee Oe eee ee eee es ae CL 
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Establish the input buffer address. 
input_rab Crab$l_ubf] = emb ; ! Load input buffer addr. in RAB 


OPEN AND CONNECT --- 

To the input error log file. Exit immediately if any errors 
are detected. The error handlers will have deen invoked if an 
error occured, and the user will have been notified. The error 
message used by the LOG_FILENAME routine is drawn from the 

CTX field of the FAB or INPUT_RAB as needed. 


Fab Cfab$l_ctx] = msg$_openin; ! soectt the error message 

CALL_FUNCTION ( Sopen Tfab=. fab ! OPEN the input file 
err=log_filename) ); 

CALL_FUNCTION ( $connect (rab=Tnput_rab ! CONNECT to input file 
err=log_filenames ); 


' 
' INITIALIZE OUTPUT FILES -- 

! The resece ‘op of the output files has been deferred until now 
' so that a fully parsed input file name would be available (as 
a related file name) for default file name components. 


If .input_file_count eql 0 the ! If this is the first pass 


. n ! 
CALL_FURCTION ( parse_output_files(Lstlun) ); ! then open the output files 
Input_file_count = .input_file_count + 1; ! Count the number of files we process. 


VISWN @ O OONAV EWN (OO OONOAULE AR OOOO WO 


Lstlun = .syecom[sye$l_lstlun); ! Initialize the fortran logical unit number 


A EPS et Et hd tt ee a ey a ee ay ee tere 


' RESET THE RECORD COUNTERS-- 

Reset the file-relative record number such that records in each 
file will be numbered in ascending order beginning with one. 
Reset the setected count so it is also on a per-file basis. 


Syecom(sye$l_reccnt] = 0; ' Reset the record number 
Selected = 0; ! Reset file select count 


ROPIPOPINIPOPOPOENRINGITUNININ 
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V04=000 1ar8een 138s 93:35:19 NES eUWBAASP ERS CEE ShCSerr.032,1 2% <8 
; a8 127 i READ AND LOOP UNTIL EOF OR +r cee 
; 720 1280 i “While status is true pet are res the input file. 
: 721 1281 i Increment the SECON SYE erect which is the record count. 
 F § 1 ¢ ! If the user command peee : iffed sare type of record needs processing then 
; f Z : ? {pcrement gone Me’, elected count. 
3 ‘ ec 
; 725 1285 ! write the ee te to “she “specified binary file, 
; 726 1 8 ! else go process the record(error packet). 
s er 1 ! else write the error packet to the rejected records file if specified. 
3 f : : 89 End while 
: 730 1290 
: 1 ' 4 While status = $GET (rab=input_rab, err=log_filename) do ! Read a record 
; ‘ : $8 Syecom(sye$l_reccnt] = .syecom(sye$l_reccnt] + 1; ! Update the record number 
: 735 1295 If record_selected () then ! Process this record? 
; 736 1296 4 BEGIN ' Yes 
: 737 1297 4 Selected = .selected + 1; ' Count how many we process 
3 rae 1298 4 If .option tlegtoptsv. binary_ qual) then ! sf /BINARY write packet 
: 84 ! 4 ? FALL FUNCTION ( writé_binary (emb, output. rab) 
: ra a 4 end FUNCTION ( process_packet () ); ! Analyze packet 
5 74 H 
3 744 1304 if -option_flaglopt$v_rejected_qual] ! If /REJECTED write packet 
: ez ; b2 then CALL "PUNCTI ONC orgie piadry (emb, rejected_ rab) ); : 
: 747 1309 
; 748 1308 ! Determine if the end value for a ‘/entry=end' was found. 
3 oe8 : R } Yes, set up status and exit as if end of file. 
: 131 Hy ; “If -syecomLsye$b_ end_value] then 
o n 
3 Fag 1 ig 4 Status = RMSS_EOF ; 
im iE eee 
: 756 i310 END; 
3 757 ta 
; 758 1318 Total_selected = .total_selected + peetecsegs ' Accumulate totals 
3 P28 1332 Total_rejected = .total“rejected + (.syecom(sye$l_reccnt] - .selected); 
: 761 1321 
; 76 1 § ! 
; 76 1 i CHECK STATUS AT END OF LOOP --- 
: 764 1324 ' Now check the return status to make sure it was a normal EOF. If not, 
; £03 : 5 — Fn the user. 
; eS 1359 
3; 768 1 3 If not (.status eql rms$_eof) ' If any status other than 
5 g ; } 4 then return .status; i expected eof, return it 
: 771 1331 ' 
3 4 ! ¢ } Indicate that end of file occurred. 
: 77% 1334 2 Syecom{sye$b_eof_flag) = true ; 
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Displa nser aoaer es 

Determine if a full report should be generated, so that the MSCP 
messages can be de-queued gre output. (This must be done after EOF 
because the number of entries for a given cmd ref number is unknown 
due to the number of retries for the 1/0, etc.). 
REARARARAKAARAAAAAAARARAEARAREEATHEEEE 


call back to Conqueve any information.2?22272? 
Summary information is updated when the first part of an MSCP messa 


f .parser_datalerl$b_rpt_type] EQLU FULL_REP 
en 
1 


ie 
zs 


s Vv ores 
MSMASTER: CERF .SRCJERF .832;17 


Brief reports are handled ir, the root and don"t seem to require this 


is seen. Summaries for device rollup worked before this code was pu 


i Set up the precertyee and attempt to load the ERFPROC1 image. If the 


image was already loaded the xfer address will be returned. 


Begin 

Class = 0 ; 

Type = EMBSC_SP ; 

Worst_error = Image_loader ( type, class, xfer_addr ); 


If .Xfer_addr NEQU 0 
Then | 


Call the device dependent module to produce a full report. 


(Record_size is passed as a count of 1 and record_number is unknown 


t 
EOF was seen it will call the DUDRIVER MSCP_DQ routine to output the 


i 
i 
at this time and should not matter, because when ERLLOGSTS sees that 
i 
i 


remainder of the MSCP message information). 
BEGIN 
Syecom[(sye$l_options] = %c'S'; 
Exec_image ( xres etgar Lstlun, ZREF(1), syecom(sye$l_reccnt], 
End; : 
End ; 


' 
' Determine whether any of the specified enrtries were found. 
If no entries found. Output an informational message for the user. 


If .total_selected EQL 0 then signal (erf_notfound) ; 


i CLOSE --- 

: Input file processing is now complete. Revise the stored error 

: message (which is passed to the error routine via the ‘user context’ 
: field CCTX] of the FAB) and $SCLOSE the input file. 

Fab Cfab$l_ctx] = msg$_closein; ! Assign error messa 
CALL_FUNCTION ( $closSe (fab=.fab, err=log_filename) ); ! Close the input fi 


4 
ERF Errorlog Report Formatter iB-s¢ =1984 23:42:14 VAX-11 Bliss-32 V4.0-74 P 4 ERF 
v04=000 . Vea geeT TSBs F535:15 Pee eah et ERe eRe See Sene.e32;1 P80 ahs voe 
; 3 139 
; 4 139 If .option_flaglopt$v_log qual] then ! If /LOG requested 
: . 5 1394 ta. . 
; 4 ° 1395 Desc £93 = .input_nam prense rst $ ! then notify the user 
; 139 Desc [1] = .input_nam ([nam$l_rsaJ; ! with file name and counts 
: . 5 : 2 ose (erf_input, 5, desc, .selected, .syecom(sye$l_reccnt] - .selected); 
; 840 139 
3 nh 1400 
$ tg 1401 
; 84 1oR6 Return true; 
3 844 140 
3; 845 1404 1 END; 
-PSECT S$PLIT,NOWRT,NOEXE, PIC,2 
00 00 00 53 00044 P.AAH: .ASCII \S\<0><0><0> : 
00000001 00048 P.AAG: .LON 1 3 
00000000° 0004C -ADDRESS P.AAH : 
-PSECT SOWNS,NOEXE, PIC,2 
00004 CLASS: .BLKB $ 
000 BLK 
00000001 00008 deri cite ‘ 
OOOOC TYPE: -BLKB 2 
000 BLK 2 
00010 XFER_ADDR: 
-BLK 4 
-EXTRN SYSSOPEN, SYSSCONNECT 
eEXTRN SYSS$GET 
-PSECT SCODE,NOWRT, PIC,2 
OFFC 00000 PROCESS_FILE: 
5B 00000000G 00 9€E 00002 OVAB EMB, R11 : 
5A 000000006 00 9€E ised MOVAB LIBS$SIGNAL, R10 g 
59 000000006 00 9€ 0019 MOVAB OPTION FLAG, R9 : 
7 6 E 1 MOVAB INPUT_RAB 8 ; 
G E IE MOVAB LOG_FILENAME, R7 : 
6 6 E 00 MOVAB SYETOM, R é 
5 9000000" 0 9E 000 g VAB SELECTED, RS : 
4 00000000' 00 H 00 MOV LSTLUN, R : 
C ¢ 90 A SUBL2 #12, SP ; 
24 =«OA 6B D MOVAB EMB, INPUT_RAB+36 ; 133? 
5 . AC D bed MOVL F 3: 1244 
18 A3 0008109A 8F DO 00045 MOVL = #5 853 24(R3) F 
0088 8F BB 00040 PUSHR #°M<R3,R7> > 1246 
000000006 99 FB 51 CALLS #2, SYSSOPEN : 
E 58 BLBC STATUS, 6$ ; 
DD 28 PUSHL R7 : 1248 
8 DD 1) PUSHL R8 3 


] 
4 | 
ERF Errorlog Report Fi matter 18-56 =1984 23:42:14 VAX-11 Bliss-32 V4.0-74 Page 25 ERF 
v04-000 ° 12-8 08-138e 93:58:15 DISKSVMSMASTER: CERF .SRCJERF .B32; 1 . (183 v4 
000000006 0 F SF CALLS #2, SYSSCONNECT : 
98 6 £8 bog BLBC STATUS, 6$ : 
AC A D3 6 TSTL INPUT _FILE_ COUNT : 1260 
gf 3 0 ge BUEHL Re + 1261 
000000006 99 g1 FB 19 CALLS #1, PARSE_OUTPUT_FILES : 
Q E 7 BLBC STATUS, 6 : 
AC OA D6 7A 1$: INCL INPUT FILE_ COUNT + 1263 
64 27 ACO 7D MOVL  SYECOM+39, “LSTLUN : 1265 
66 D4 00081 CLRL = SYECOM + 1275 
D4 000 3 CLRL SELECTED : 1276 
7 DD 00 2$: PUSHL R + 1291 
8 DD ? PUSHL RB : 
000000006 00 08 FB 00089 CALLS #2, SYSSGET F 
52 D0 90099 MOVL RO, STATUS : 
48 52 £9 00093 BLBC STATUS, 8$ : 
66 06 90096 INCL SYECOM + 1293 
000000006 00 00 FB 00098 CALLS #0, RECORD_SELECTED + 1295 
1A 50 €9 O009F BLBC ; 4$ ; 
65 06 900A2 INCL SELECTED t 1297 
50 69 DO O00A4 MOVL OPTION FLAG RO + 1298 
08 60 01 £1 000A7 BBC #1, (RO), 3$ : 
000000006 00 9F 000AB PUSHAB OUTPUT_RAB : 1299 
16 11 000B1 BRB ; 
00000000v 00 00 FB 000B3 3$: CALLS #0, PROCESS_PACKET + 1301 
16 11 OOOBA BRB ; 
50 69 DO O00BC 4$: MOVL  OPTION_FLAG, RO + 1304 
13 60 OA €1 000BF BBC #10, (RO), ?$ : 
000000006 00 9F 000C3 PUSHAB REJECTED_RAB + 1305 
5B DD 000C9 Ss: PUSHL ; 
00000000v 00 02 FB 000CB CALLS #2, WRITE BINARY : 
01 50 €8 000D2 6$: BLBS STATUS, 7S ; 
04 0000 RET ; 
AB 1E Ab E9 00006 7$: BLBC SYECOM+30, 2$ : 1311 
52 0001827A 8F 00 OOODA MOVL #98938, STATUS : 1313 
50 65 DO O00E1 8$: MOVL SELECTED, RO : 1318 
a 6 «(OAS 50 CO O00E4 ADDL2 RO, TOTAL_SELECTED F 
50 66 50 ¢3 000E8 SUBL3 RO, SYE + 1319 
28 AS 50 ¢O O00EC ADDL2 RO. TOTAL REJECTED ; 
00018274 = &F 52 D1 O00FO CMPL STATUS, #9893 + 1328 
o4 13 OOF? BEQL ; 
50 2 00 000F9 MOVL STATUS, RO : 1329 
04 OOFC RET ; 
1b As 01 0 OOFD 9$: MOVB #1, SYECOM+29 : 1334 
50 000000006 9 p 101 MOVL § PARSER_DATA, RO : 1347 
02 60 91 0108 CMPB ss (RO), A a 
44 12 00108 BNEQ : 
04 Ad BA 01 CLRW CLASS : 1354 
Oc AG 63 oBF 011 MOVZBW #99, TYPE : 1355 
10 Ad 9F 0011 PUSHAB XFER_ADDR : 1357 
4 Ad 99F 0011 PUSHAB CLASS ; 
C Ad 9F 0011B PUSHAB TYPE ; 
00000006 00 03 F Orig CALLS #3, IMAGE_LOADER : 
00000006 00 dO 001 MOVL RO, WORST-ERROR ; 
10 Ad D5 0012C TSTL XFER_ADDR : 1359 
0 13 OO1oF BEQL los : 
2B AG 53. BF 9A 00131 MOVZBL #83, SYECOM+43 > 1369 
| 


; Routine Size: 423 bytes, Routine Base: S$CODE + 0235 
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v04-000 1228 08= 1982 $3:58:15 DISKSVMSMASTER: CERF .SRCJERF .832;1 8s 
00000000" 00 9F 00136 PUSHAB  P.AAG 5 1371) 
6 DD 0013¢ PUSHL R : 1370) 
08 AE 1 00 001 MOVL #1, 8(SP) : 
08 AE 9F 0014 PUSHAB 8(SP) : 
54 DD 0014 PUSHL : 
10 Ad 9F 0014 PUSHAB XFER_ADDR : 
000000006 00 05 FB OO14A CALLS #5, EXEC_IMAGE F 
24 AS D oi 1 108: TSTL | TOTAL_SECECTED : 1380 
09 12 00154 BNEQ =«-*'118 : 
000000006 8F DD 00156 PUSHL  #ERF_NOTFOUND : 
A 1 FB 15C CALLS # FIGSSIGNAL : 
18 A3 0008105 F D0 0015F 11$:  MOVL #368466 4(R3) : 1389 
008 F BB 00167 PUSHR #*M<R3,R7> : 1390 
000000006 00 FB 1 CALLS #2, SySSCL OSE : 
1 E9 001 BLBC TUS, 1 ; 
0 69 BO O17 MOVL § OPTION_FLAG, RO + 1393 
$0 178 TSTB —s- (ROD : 
18 0017A BGEQ 12$ ; 
04 AE 000000006 60 9a O017¢ MOVZBL INPUT_NAM+3, DESC + 1395 
08 AE 000000006 DO 00184 MOVL _INPUT"NAM+4. DESC+4 : 1396 
5 : 00 91 C MOVL SELECTED R : 1397 
7E 56 0 C3 0018F SUBL3 RO, SYECOM, -(SP) ; 
50 DD 00193 PUSHL RO : 
0c aE 9F 00195 PUSHAB DESC : 
0 DD 00198 PUSHL # ; 
000000006 8F DD 0019A PUSHL HERF INPUT : 
6A 5 FB OOIA CALLS #5, CIBSSIGNAL : 
50 1 DO OO1A 128: MOVL #1. RO > 1402 
04 001A6 13$:  —-RET + 1404 
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Routine PROCESS_PACKET = 
BEGIN 


'e¢ 
i Functional description 


This routine determines which dispatcher to call for gop 
the specified report type. Any errors encountered will be passed 
back to the caller. 

Calling sequence 

Process_packet ( ) 


Input parameters 


aT St tt tt ee 
AAIRIPOPINOMOPONOPOPN OOOO 


AUS WN — O OONOUESWN—"ODONOu 


Output parameters 
None 


FWN — OOONAOUES WN" OOONAWM 


Routine value 


Worst error is returned. 


Oe ee ee ee 


| 

2 

: 

§ Literal 

No_full = 0 ; 
$ Local 

: Status; 

6 
4 
3 
5 
é 
4 
4 


Global 
Brief_xfer_addr; 


syecom(sye$l_record_size] = .input_rab Crab$w_rsz); 

If ee HE -unknown_entry) then ! If not an unknown entry then 
e 

Case .parser_datalerl$b_rpt_type] ! Case on report type value 


From 0 to REG_DUMP_REP of 
Set 


Fd Dk et tah de te et ee Mb ahah hah ah eh tel 


CNet -0 sFlen flaglopt$v_summary_qual)] then 
“ate FUNCTION C full *dispatther > P.3 
Cortef rep): ! Go output a Brief report 
f° Bret. xfer_addr EQL 0 then 
Status = map_image (AD (‘SYSSSYSTEM:ERFBRIEF .EXE*) ,.brief_xfer_addr); 


If NOT .status then return true; 
End; 
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Syecom[sye$l_options] = %c'B'; 


Bliss-32 V Page 27 
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Exec_image( Briel xfer oder, 


H 1968 4 : 1 
; 1463 4 stlun :] 
: 906 1464 4 AD('B'S, # 
> 90 1465 4 syeconts e$l_record_sizel, - 

; 908 1608 4 ZREF (.option_flaglopt$v_summary_qual]), ‘ 1 
: 909 1467 4 .Summary_flag) ; 7] 
: 910 1468 End; 2] 
>; 911 1469 :] 
; gig 1470 CFull_rep): ! Go output a Full report :] 
ee ase Te : 
; 915 1298 4 : Determine whether the fortran text commons (giocommon, opcodes, modes) :] 
; 916 1474 & ! have been initialized, if not then call the init_commons routine to ‘ | 
3 at 1o02 ? } initialize them. Then call the full dispatcher. ° } 
: 919 1279 & If NOT .inited commons then CALL_FUNCTION (init_commons()) ; :] 
> 920 1478 4 CALL_FUNCTION T Full_dispatcher () ); 2] 
: 921 147 End ; :] 
; F : 1480 i] 
: 38 1282 [Reg_d } 1G t a Register D Z 
; eg_dump_rep]: ! Go output a Register Dump report : 

> 935 1483 ae : . misc : 1 
; 926 1484 4 If .Brief_xfer_addr EQL 0 then :] 
; 927 1485 5 Begin :] 
; 928 1486 5 Status = map_image (AD (‘SYSSSYSTEM:ERFBRIEF.EXE’),brief_xfer_addr); : 1 
; 39 1487 5 If NOT .statUs then return true; :] 
: 930 1488 4 End; 2 
; 931 1489 4 i] 
; 932 1490 4 Syecom{sye$l_options] = %c'C'; 7] 
: 93 1491 4 Exec_image( Grief_xfer_addr, :] 
> 934 1498 4 Lstlun : 1 
; 935 1493 4 AD('C'S, 2] 
; 936 1494 4 syecomtsyeSl_record_size). 7] 
; 937 1495 4 ZREF ( .option_flaglopt$v_summary_qual]), : 1 
; 938 1496 4 .Summary_flag) ; :] 
; 939 1497 4 i] 
; 940 1498 End; 2] 
> 941 1499 2] 
; 96g 1500 COUTRANGE): : 1 
; 94 1501 Signal (erf_invreptyp); : 1 
> 944 1308 :] 
> 945 150 TES; 2] 
3 946 1504 End :] 
: 947 1505 2 Else | 
3: 948 1506 If parser dataCer|$b_rot_type] NEQU NO_FULL then : | 
; 949 1507 Unknown_dispatcher (); ! Call unknown dispatcher : 1 
; 950 1508 :] 
; 951 1509 : 1 
; 93¢ 1510 2! i] 
3 327 13u : If /summary was specified then call summary_dispatcher. : 
s 999 1218 If .option_flag Copt$v_summary_qual] then . 3 
; 936 ie Begin : | 
; 95 1515 If (. summary. flaglsua$y device) OR -suanery. tLegtounsv_all_suna}) then > 
5 o38 1318 Exec_image ( Summary_diSpatcher_addr, Lstlun, ZREF(dev_Summ_upd)) ; ; 
; 960 1518 If (.summary_flag(sum$v_histogram] OR .summary_flagCsum$v_all_summ]) then 31 


Errorlog Report Formatter 


52 45 3A 4D 


52 45 3A 4D 


1$-sen-1986 25:42:14 


VAX=11 Bliss-32 V 
DISKSVMSMASTER: cER 


Exec. image ( Summary dispatcher_addr, Lstlun, %REF(histo_summ_upd)) ; 


Return true; 
End 


.PSECT SPLIT,NOWRT,NOEXE, PIC,2 
45 54 53 59 53 24 53 59 53 00050 P.AAJ: ASCII \SYSSSYSTEM:ERFBRIEF .EXE\<0> 
00 45 58 45 2E 46 23 49 33 O05F 

9900001 068 P.AAI: .LONG 
00000 09° 006¢ ADDRESS P 
00 00 00 4 0070 P.AAL: .ASCII vt cbectnete 
$5580)» $8878 PAM sta 
45 54 53 59 53 24 53 0 O7C P.AAN: .ASCII \SYSSSYSTEM:ERFBRIEF .EXE\<0> 
00 45 58 45 2E 46 45 49 32 0088 
0000001 90094 P.AAM: .LONG 23 
00900009" 0098 “ADDRESS 
00 00 00 4 44 P.AAP: .ASCII A <n 
00000001 000A0 P.AAO: .LONG 
00000000" 900A4 “ADDRESS P.AAP 
«PSECT $GLOBAL$,NOEXE, PIC,2 
000B8 BRIEF _XFER_ADDR:: 
-BCKB 4 
-PSECT S$CODE,NOWRT, PIC,2 
O3FC 00000 PROCESS_PACKET: 
-WORD Save R2,R3,R4,R5,R6,R7,R8,R9 
59 000000006 00 9€ 00002 MOVAB MAP_IMAGE 
58 000000006 00 9E 90009 MOVAB EXEC IMAGE . RB 
57 00000000' 00 9E 0019 MOVAB LSTLON, R 
36 000 906 9—€ 0001 MOVAB SUMMARY_FLAG, R6 
55 000 y 9E O01§ MOVAB P.AAI, RS 
23 38 G SE 8 MOVAB OPTION FLAG R4 
3 G 9E 00 g MOVAB SYECOM?3 
32 0000000' 00 3 6 MOV BRIEF _XFER_ADDR, R2 
, 4 ¢ A SUBL2 4&4, $ 
$ 990000006 0 3¢€ 00030 MOVZWL INPUT T RAB+34, SYECOM+35 
0 00000 006 9 09 O44 MOVL PARSER D RO. 
0 FB OA 048 BLBC —_- UNKNOWN Pent Tey” 
009E 31 0004F BRW 3$ 
03 90 60 BF O52 1$ CASEB = (RO) 0, gh 
004C 0021 001 056 2$ . WORD 4s- §.- 
$5.53" 
000000006 8F DD 0005E PUSHL HERE INVREPTYP 
000000006 00 1 Fe 064 CALLS #1, CIBSSIGNAL 
008D 31 00068 3s: BRW 14$ 
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ERF Errorlog Report Formatter 18. -Sep-1984 23:42:14 VAX-11 Bliss-32_V4.0-7 Pa ERF 
v04-000 14- ~sep- 198 3 6:15 DISKSVMSMASTER: chre src ERF .B32;1 9° 499 v4 
5 4 00 4$: MOVL OPTION_FLAG, RO : 1449 : 1 
F6 26 gE Fi 3 BBC #14, (RO), $$ : 33 
: 7 BRB Be : 1450 : 1 
D 77 5$: TSTL BRIEF_XFER_ADDR ; 1455 7] 
1 79 BNEG 6$ : 31 
DD 78 PUSHL Re 3 1457 3 
DD 0007D PUSHL : 31 
69 ; F OF CALLS , MAP. IMAGE ; :] 
1 Dd ¢ MOVL : 3 1 
44 1 7 00 BLBC erATUS Bs + 1458 31 
08 A3 42 8F 9A 00088 6$: MOVZBL #66, SfECOM+43 : 1461 3] 
6 DD 99 D PUSHL SUMMARY _FLA J + 1467 31 
50 D0 F MOVL OPTION, FLAG + 1466 31 
04 AE 60 01 E EF 0098 EXTZ2vV #14, #T, (BO) csp) : 31 
04 AF F 0009 PUSHAB 4(SP) : 31 
53 DD 00098 PUSHL R3 + 1465 71 
0c AS 9F 0009D PUSHAB P.AAK + 1464 71 
45 11 O00A0 BRB 12$ : 1462 a. 
0B FFO6C C3 E8 OOAg 7$: BLBS = INITED_COMMONS, 8$ + 147 : 1 
00000000v 00 0 FB 900A CALLS #0, INTT COMMONS : 31 
01 50 Eg OO0AE BLBS STATUS, 8$ : : ! 
00000000v 90 00 FB 00082 8$: CALLS #0, FULL_DISPATCHER t 1478 31 
F 50 Es 90089 BLBS STATUS, T4$ : ; 
62 DS 000BD 9$: TSTL § BRIEF_XFER_ADDR + 1484 31 
Q 12 000BF BNEG 11$ : 31 
DD 000C1 PUSHL R2 + 1486 31 
2c (AS OOF 990¢5 PUSHAB P.AAM : 31 
9 2 FB 000C6 CALLS #2, MAP_ IMAGE : 31 
1 DO 000C9 MOVL RO, STATUS : g 1 
61 51 E9 O0CC 10$:  BLBC  STATU : 1487 31 
08 A3 43. BF SA OOOCF 11$:  MOVZBL #67, SYECOM+43 + 1490 31 
66 DD 00004 PUSHL SUMMARY _FLAG : 1496 31 
50 64 DO 00006 MOVL OPTION, FLAG RO + 1495 31 
04 AE 60 01 O£ EF 00009 EXTZv. #14, #T, (ROD, 4(SP) : 31 
04 AE F OOODF PUSHAB 4(SP) ; 31 
53 DD 000E2 PUSHL > 1494 31 
38 «AS «OOF O00E4 PUSHAB  P. AAO + 1493 31 
0084 8 BB OO0E7 12$:  PUSHR #M< + 1491 31 
68 6 Fe O0EB CALLS #6 Eee” IMAGE : 31 
B 1 OEE BRB 14$ ; 1442 31 
60 93 OOFO 13$:  TSTB (RO) > 150 31 
07 1 6 F2 BEQL 14$ ; 71 
000000006 00 0 FB F4 CALLS #0, UNKNOWN_DISPATCHER + 1507 31 
50 64 D Sore 14$:  MOVL OPTION FLAG, RO : 1513 31 
2E 60 E €1 000F BBC #4, troy. {8$ : 31 
0 66 00 1 MOVL §§ SUMMARY FLAG RO > 1515 71 
03 6 1 £0 001 BBS wi, (ROY, 15$ ; 31 
D : E9 001 BLBC (rb), 16$ ; 31 
6E DO 0010C 15$: MOVL #3, (SP) : 1516 31 
4080 &8F Hy 10F PUSHR #*M<R7,SP> ; 3:1 
D0 Ae F 00113 PUSHAB a DISPATCHER _ADDR ; 31 
$ 03 F 118 CALLS Ree ; 31 

- 66 D 1 16$: ROVL RO : 1518 
§ 60 €E 0126 BLBC tRO) crag ; 
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; Routine Size: 308 bytes, Routine Base: 


4 
13 opr }8Re 73:35:19 = MNcddmGHASTeRscERE shCSerr.032:1 2% 17} 
08 DO 001 ; 17$:  MOVL 48 (SP) 7 1519 
4080 8F BB 1 PUSHR #*M<R7,SP> : 
oN a EAM® GAMMA ggazcnens 7 
83 D0 00130 188: MOV. #1. RO ~ $ 1522 
04 00133 RET + 1523 


SCODE + 030C 


aetna 
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ERF Errorlog Report Fermatter hese =1984 23:42:1 VAX-11 Bliss-32 V4.0-74 Page 32 
V04-000 —— Jane p= 188 F3:35519 — NTKSuMGMASTERCCERE secdenr.032:1 729° 135 
; 967 1524 1 Reutine FULL_DISPATCHER = ! Full report dispatcher 
; +e : 5 2 gEGIN 
; 970 ? ! Functional description 
: 97 159¢ i This routine checks to see if the loadable module needed 
; 97 153) : to process the error packet is available. If it is not then 
3; 974 1541 ! it tries to load the module. If successful then it call the module. 
: 46 } ¢ Any errors encountered will be passed back to this routine. 
: y? 1: 4 Calling sequence 
: 979 1 6 ! Full_dispatcher () 
: 981 15 8 i Input parameters 
. cee 
> 984 1541 i Qutput parameters 
; 985 1206 ! 
3 359 1307 } None 
: 988 1345 Routine value 
: 990 1547 i Worst error is returned. 
; 991 1548 2! 
3 444 1549 leone 
: 38a 138) $0 | 
: 995 1336 2 wn ter_eddr: LONG, ' Transfer address of the required image 
: 996 1553 2 Class: WORD, ! Class of the image to be loaded 
: 997 1554 Type: WORD; ! Type of the image to be loaded 
; 998 1555 
cae 
+ 1001 1558 i If the packet entry type is a device error, device timeout, or 
3 1008 1559 !' device attention then use the class and type specified in the packet as 
: 100 1560 2 ! class and type of the image to be loaded. Else use class = 0 and 
3: 1004 1561 § ! type = entry type value. 
Wm ie 8 
: 1007 1564 $ If ( .embCLemb$w_hd_entry] EQLU EMBSC_DE ) OR 
; 1008 1565 ¢ ( .embLemb$w_hd_entry] EQLU EMBSC_DT ) OR 
3 1009 1366 ( .embCemb$w_hd_entry] EQLU EMBSC_DA ) 
£1011 1366 § Begin 
i 1012 1369 te © -enbCenbSb_dv_ type): 
3 101 1570 Class = .embCemb$B_dv_class]; 
3: 1014 1571 nd 
ibe 1378 § ESE in | 
: 1017 1574 Type = .embLemb$w_hd_entry); 
7 1 18 1575 Class = 0; 
3: 101 1326 End; 
We US 
: 10 § 1399 i Try and load the image. If no image report error and return. 
3; 102 1580 ! 


a3 
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3; 1024 1581 Worst_error = Image loader ( type, class, xfer_addr ); 

3 19 é : § If .Xfer_addr eQLG 0 then return -worst_error;” 

:1 1584 2! 

3 8 8 1585 : The error packet entry type will determine which call to EXEC_IMAGE should 

: 1029 1 $ ! be used in order to pass the necessary parameters to the loaded image 

3 1° : 13 . for translation of the error packet. 

; 10 ¢ 1589 Case .embLemb$w_hd_entry] from 1 to EMBSC_UBC of 

; 10 1 SET 

3; 10 1591 

3: 1035 1236 C EMBSC_DE, ! Device Error 1 

; 10 159 EMBSC_BE, ' Bus Error 4 

; 10 123% EMBSC_AW, ! Asynchronous Write Error 7 

; 1038 1595 Bnesc.cs, ! Cold start (ie: SYSTEM ROOT) 32 %x20 

3; 1039 1238 4 ! NOT IN DEFINITION FILE 4 ang 

; 1040 159 EMBSC_NF, ! New errlod.sys file created %x23 

; 1041 1598 EMBSC_WS, ! Warm start (ie: vsTee POWER RECOVERY) 36 %x24 
3 ok 1599 EMBSC_CR, ! Fatal bugcheck 37 _%x25 

3 104 1600 EMESC_TS, ! Time stamp entry 38 — 

3; 1044 1601 ENBSC_SS ' System service message 9 4X27 

> 1045 160¢ EMBSC_SBC, i System bugcheck 40 2X28 

: 1046 160 EMBSC_OM, ! Operator message 41 %X29 

3 1047 1604 EMBSC_NM, ! Network wensege 42 %X2A 

: 1048 1605 EMBSC_DT, ! Device Timeout 96 2X6 

3: 1049 1606 EMBSC_UI, ! Undefined interrupt 97 %Xx61 

: 1050 160 EMBSC_DA ! Asynchronous Device Attention 98 %Xx62 

: 1051 1608 EMBSC_UBC J i User bugcheck 112 %X70 

; 1926 1609 

3 195 1610 ' 

3; 1054 1611 ! Determine if a full report should be generated. 

3; 1055 1ol¢ ' Call the device dependent module to produce a full report. 

3; 1056 161 ! Else return. 

: 1057 1614 ' 

; 1058 1615 Begin 

: 1059 1218 If .parser_datalerl$b_rpt_type] NEQ 0 then Exec_image ( Xfer_addr, Lstlun ); 
: 1060 161 Return true; 

3; 1061 1618 End; 

; 1006 1619 

3; 106 1620 C EMBSC_SP, ! Software Parameters 99 %Xx63 

3 1064 1621 EMBSC_LM , ! Lo ged Message 100 %Xx64 

3 1992 19 ; EMBSC_LOGMSCP J : ! MSCP message without UCB 101 %x65 

3 1067 1624 Begin 
$1068 1695 i 

3 Hi 4 1 $ Determine if summary information should be updated. 
3; 1071 16 3 If (.option_flaglopt$v summery qual)) AND | 
: 1078 16 4 4 at (,embCémb$w_hd_entry] NEQO EMBSC_LOGMSCP) 

3 en 

3 | 74 1631 ' Yes, call the deivce dependent module for summary updates. | 
: 1075 16 i | 
; 1076 16 5 4 BEGIN 

3; 107 1634 4 Syecom(sye$l_options] = %c'R'; 

:; 1078 1635 4 Exec_image ( Xfer_addr, Lstiun, gvecontsyeS! record_sizel. 

3; 1079 16 § 4 syecom[sye$l_reccnt], AD('R") ); 

3; 1080 16 3 END; 


P | 

ERF Errorlog Report Formatter 1b-se =1984 23:42:14 VAX-11 Bliss-32 V4.0-74 Page 34 
V04=000 — Janse GBe F355: 15 Pee aGAh tea eRe sheSene.e32;1 Pa? ad 
7 a 
s 1 164 ! If report type is not equal to NOFULL then call the device dependent 
: : : 1849 } module to produce a full report. 

: 1 164 if .parser_datalerl$b_rpt_type] NEQ 0 

: EB a Sapien testa 
: 1988 1646 4 Syecom(sye$l_options] = %c'S'; 

3 1 1647 4 Exec_image ‘ Xfer_addr, Lstlun, gvecont eyes! record_sized. 

3 199) 1968 4 syecom(sye$l_reccntj, AD('S") ); 

: 1098 is Return true: 

> 1095 16 y 

3 1098 1688 C EMBSC_MC, ! Machine check 2 

; 199 1928 EMBSC_SA, ' SBI Alert 
13 1098 1655 EMBSC_SE, ' Soft ECC Error § 

3; 1099 1638 EMBSC _HE ! Herd ve errer 

> 1100 165 EMBSC_UBA, i 11/780 Unibus Adapter error 9 

3; 1101 1658 EMBSC_UE, ! 11/7 8 Unibus Error 11 %Xx 

3 1396 1659 EMBSC_MBA, ! 11/780 Massbus Adapter Error 12 %xC 

3; 110 1660 EMBSC_VM, ! Volume mount 64 2X 

3 1104 1661 EMBSC_VD J ! Volume dismount 65 %X41 

: Hide 1668 Begi 

3 egin 

t Hoe 1664 (9 

3 By 199? } Determine if summary information should be updated. 

: 1110 1667 if (.parser_datalerl\$b_rpt_type] EQL_0) AND 

3 1333 1998 4 . (,option_flaglopt$v_summary_qual)) 

; n 

3 W418 1670 ! Yes, call the deivce dependent module for summary updates 

3 Wie 197) ; and return to the calling routine. 

: 1116 1878 4 Begin 

3 1117 1674 4 Syecom{sye$l_options] = %c'R'; 

3 1118 1675 4 Exec image (Xfer_addr, Lstlun, AD ('R') ); 

3 BS 1676 4 ee true ; 

3 nd ; 

3 1121 1678 

3 He 1679 ! 

‘ 1 7 iene : Call the device dependent module to produce a full report. 

: 1125 1883 Syecom(sye$l_options) = %c'S'; 

311 § 16 Exec_image (Rfer_addr, Lstlun, AD ('S") ); 

3 i i 1 : Return True; 

: 1129 16 : 

3; 11350 16 CEMBSC_SBIA, ! SBI Adaptor error 13 %X0D 

: 1131 16 3 EMBSC_CRD, ! CRD log 14 %X0E 

3 79 4 1 EMBSC_EMM, ! Environmental Monitor 15. %X0F 

3 11 16 EMBSC_HLT ! Processor Error Halt 16 

211 1691 EMBSC~CRBT) i Console Reboot 17 2X21 

3: 1135 1696 Begin 

311 $ 169 Exec_image (Xfer_addr); 

3 11 1694 Return true; 


4 
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11 1695 End; 

18 1636 

1140 169 C 3, 10, 18 to 31, 33, 43 to 63, 66 to 95, 102 to 111, outrange J: 

1141 1998 Return true; 

1128 192 TES; 

114 1 Bo 

1144 1701 End; 


-PSECT S$PLIT,NOWRT,NOEXE, PIC,2 
P.AAR: .ASCII \R\<0><0><0> 


LONG 
-ADDRESS P.AAR 
P.AAT: .ASCII \S\<0><0><0> 


00 00 


owr> 


0 8 3 

3 i i : 

00 00 09 4 : 
8 80 ° oer — ODRESS P.AAT ; 

00 00 32 a9e6 P.AAV: .ASCII  \R\<0><0><0> ; 
$0000 ' ite) on a NRESS P AAV : 

00 00 00 99 OOCC P.AAX: ASCII \S\<0><0><0> ; 
00000001 4494 P.AAW: .LONG 3 
00000000" 00004 “ADDRESS P.AAX : 


-PSECT $OWNS,NOEXE, PIC,2 
00014 XFER_ADDR: 


0018 CLASS: .BLKB 
OO1A TYPE: -BLKB 


mune 


-PSECT SCODE,NOWRT, PIC,2 
O3FC 00000 FULL_DISPATCHER: 
«WORD 


Save R2,R3,R4,R5,R6,R7,RB,RP : 1524 
59 000000006 00 9€ 02 MOVAB OPTION FLAG, R : 
38 G 9E MOVAB WORST ERROR. R8 ; 
G 9E 19 MOVAB PARSER_DATA, R7 : 
$ G 9€ 0001 MOVAB EMB+4,~R ; 
E 3 MOVAB P.AAQ. R ; 
4 G E MOVAB EXEC Image. R4 : 
6 E § VAB YECOM+45, R3 3 
‘ 3 VAB  XFER_ADDR, R2 ; 
8 C A +4, RO 3 1564 
01 a 3 
6 it 3: 1565 
0 & > 1566 
C 12 3 
Ke 188 
: 7% + 1564 
0 B0 : 1974 
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Errorlog Report Formatter 


Routine OPEN_TEXT_LIB = 


lee 
' Functional description 


This routine set u 


to translate ERFLIB. 
default Library name 


which control device 
text module to be re 
specifies which reco 
module. 

Calling sequence 
OPEN_TEXT_LIB () 


Input parameters 


Output parameters 
None 
Routine value 


BEGIN 

LOCAL 
Buff: $88 
Desc: VEC 
Function, 
Nocall_needed: OYTE 
Status 
Text_library_name des 
Trnlnmist: Sitml 

Global 
Ident; 


and CPU validation. MODULE_NAME_DESC 
ad and parsed. FUNCTION is a value which 


the default Library name then attempts 
if there is no translation then the 
s used to open the text Library. 


there is a translation then that string is used instead. 
Once the Library is opened, modules are read in and there 
records parsed. These re 


ords are used to build the tables 
dation, device module secection, 
oints at the name of 


i 


val 


rd parser to use for a particular text 


Worst error is returned. 


LOCK (80) 
TORL2,LONG) INITIAL (80,buff), 


INITIAL (FALSE), 


C, 
st_decl (items = 1); 


Ident = $descriptor('v03-026'); 


Text_li 


If $trninm ( attr 


lognam = er 


Zref(lnmin 
tabnam = Lnm$ 


brary_name_desc = $descriptor (*SYSSLIBRARY:ERFLIB.TLB") ; 
SItmist_init ( itmlst = trninmlst, (stacee 


= nas string. bufadr = 
ufsiz = .descl0J, retlen = desc 
ase_blind), 
le_dev_desc, 


flib_desc, 


ones 
- SRCJERF .832;1 


; 
a 
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0 itmlst = trninmlst) 
1 Then 

¢ Text_library_name_desc = desc; 
4 


5 i Initialize text library control and open the Library. 


Status = LBRSINI_CONTROL (¢ Library_index, Library_func, Library_type ) ; 
f NOT .status then Signal_stop (.Status) ; 


| 
| 
Fyetus = Lensores ( Library_index, .Text_library_name_desc ) 


Se 


‘ sor ~status then T Could not open Library. 
rote (msg$_searchfail, 1, .text_library_name_desc, .status) ; 
nag; 


' 
: Set to locate mode for reading records to parse. 


CALL_FUNCTION ( LBRSSET_LOCATE (Library_index) ); 


' 
: Sequence thru the reading and parsing of the text modules. 


oo 096908 SINISE NIO O 


NOUS WN 0 OONAUE WIN ( O OONAUE UNO OONOUSWR OOM 


incr lLoop_count from 1 to 11 do 
Begin 


nction = 1; Module_name_desc = panect yorer ("MAX_CLASS_SIZE") ); 
§ : ( Function = 1; Module_name_desc = $descriptor ('CLASS_VALOES') ); 
? : ( Function = 3; Module_name_desc = $descriptor (*TABLE_SIZES') ); 
Begin 
Herald(msg$w_msg_flg] = 1; ' Message flages 
Herald(msg$w_arg_cnt) = 3; ! Argument count 
Herald(msg$l_msg_id) = ert_herald; 
Heraldimsg$w_new_flg] = 1; ! New message flages 


nt] _= 1; 
Herald(msg$l_FAO_arg1J sy, ident: 


| 
Case Cone count from 1 to 11 of set 
1): ( Fu ; 
$Putmsg (msgvec = herald); 


aiwiatiumtiat iad adiaiadatataiadtiaiabaiab iat ated ati ata iat dad abdababadmiabadadadatadbaotiatababiabababdadbabababadababababad 
OOCOCCOCOSSCOVOVOOOOO OO OWWOWOoOMmoc 
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PPPS SRE SPUN SEES ES&S SPUN Ponononononononononys 


PONG Mame SUse = $descriptor ("DEVICES") ; 
na; 
(5): 
Begin 
Function = 2; 
8 Module_name_desc = S$descriptor (*TRANSLATE_ENTRY_TABLE'); 
09 Table_address = .translate_entry_table; 
10 jeonevengts = .max_misc_type; 
11 Item_count = 0; 
\¢ End; 
1 (6): 
14 Begin 
15 Function = 2; 
16 Module_name_desc = S$descriptor (*CPU_TYPES'); | 
| 
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¥04=000 aie Va3p-198e 12:39:17 | DISkSVMGMASTERSCERF sRCSeRF.832;1 P29°c1$5 
; 1261 1817 4 Table_address = .processor_type_table; 
3} 6 1 \8 & Table length = .max_cpu_types; 
; 126 1819 4 Item_tount = 0; 
> 1264 1820 End; 
 15ee 1852 (7) 
3 7 e 1 : 4 Begin 
; 1268 1824 4 Function = 5; 
3: 1269 \8 5 4 Module_name_desc = S$descriptor ("MIN_MODULE_NAMES'); 
; 1270 1 § 4 Desc_table address = .min_modules_desc; | 
3: 1271 1 4 Table_length = .max_cpu_types; 
3 1 if; 1828 4 Item_count = 0; 
3 127 1829 ; nd; 
3 1274 1830 (8): 
: 1275 1831 4 Begin 
: 1276 18 ¢ % Function = 5; 
: 1277 ia 4 Module_name_desc = $descriptor ("MAX_MODULE_NAMES'); 
: 1278 1834 4 Desc_table_ address = .max_modules_desc; 
: 1279 133? 4 Tablé_length = .max_cpu_types; 
; 1280 18 $ 4 Item count = 0; 
; : Bt tT End; 
; 1588 1839 
; ; Se Hr C9]: 
3; 1286 1842 ! THE NEXT THREE SECTIONS MUST BE DONE IN THIS SEQUENCE. 
3; 1287 184 : This section loads the MIN_MAX_TABLE_SIZES table. Each 
; 1288 1844 ! table entry specifies the number of range pairs that 
3 1289 1845 ' exist for a particular CPU. 
: 1290 1846 : 
3; 1291 1847 4 Begin 
3 1 3 1848 4 Function = 2; 
3; 129 1849 4 Module_name_desc = $descriptor ('MIN_MAX_SIZES'); 
> 1294 1850 4 Table_address = .min_max_table_sizes; 
3 1295 1851 4 Table_length = .max_Cpu_types; 
3; 1 38 1936 4 Item_count = 0; 
: 129 185 End; 
3; 1298 1328 
: 1299 1855 [10]: 
: 1300 1856 : 
: 1301 1857 ! This section uses the contents of the MIN_MAX_TABLE_SIZES table 
3 1 ¢ 1338 ! to determine the size of the range tables. The base address of 
; : ! 23 each range table is then saved. 
; 1305 1881 4 Begin | 
3 1 1 66 4 Incr range_loop from 1 to .max_cpu_types do | 
3 130 186 : Begin 
; : 8 1865 2 of, -min_nax_table_sizesl renge_\oop) NEQ 0 then | 
; egin 
3 1310 1 § 6 Max_range_table_addrl.range_loop] = | 
3: 1311 1867 6 et_vm ( (.min_max_table sizgsl .range_ loop) + 1) * word_size); 
3:1 ¢ 1 3 6 Min_range_table_addr{.fange_Toop) = 
cs | 1 § 6 get_vm ( (.min_max_table_sizes{.range_loop] + 1 ) * word_size); 
3 1314 1870 g En 
3 ' 5 ' 4 2 Else P 
; egin 
3; 1 § 1 4g 6 Has_renge_table_addr£.range.loop) = 0; | 
| 
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Binrange.teble_addrl.range.loop) = 0; 
ng; 
End; 
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i For each range table which has a non zero size, read a text library 
module which will specify the min. ranges. 


Incr range_loop from 1 to smax -coutypes do 
f Sk a eee NEQ 0 then 
egin 
Function = 2; 
Module_name_desc = min_modules Seecs -penge, Lone. dyeconed: 
Table_address = .min_range table adgrl. range. logo 3 
Table_length = .min_max_table_sizesl.range_loopJ; 
Item_count = 0; 
CALL_FUNCTION ( Get_Llibrary_text ( .Function, .Module_name_desc )); 


nd; 
Nocall_needed = True; 
End; 


AAT IIIT 
VFWN—OOONOULSWN OOM S 


C11): 
! 


i For each range table which has a non zero size, read a text Library 
module which will specify the max. ranges. 


DOOOOOO OO ODDO WDDDODOMDo NI INN~ 
WUiN (SO OONAUEWN — OOONG UE WN OOONOUS 


Begin 
inte range_loop from 1 to “mex. coy.types do 
f -mjin_max_teble_sizesl.range_ loop NEQ 0 then 


ooo 02.0900 0000 CD CD (09 C9 C9. C9 CO CD 
S33s3s ‘co (C0 09 C9 CO CD CD CD CD. CD 0D CD CO 


2 


=PRIPIPINININI HANES HANNE BATION ES BB AAAI NINN NIN BOUT UTUTUTUTIO BS EUIO 


egin 
Function = 2; 
Module_name_desc = max_modules dosct.renge Lovp desc _oned: 
Table_address = .max_range table adgrl.range_Logp : 
Table_length = .min_max_table_sizes(.range_loop); 


Item_count = 0; 
CALL_FUNCTION ( Get_library_text ( .Function, .Module_name_desc )); 
nd; 

Nocall_needed = True; 

End; 


SSSSS 


TES; 
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If NOT .nocall_needed then ! If nocall_needed is false then 
CALL_FUNCTION ( Get_library_text ( .Function, .Module_name_desc )) 
lse ' else its true and reset it to false. 
Nocall_needed = false; 


End; 


Status = LBRSCLOSE ( i iorery index ) ; 
If NOT .status then Signal_sfop (.status) ; 


Return true; 


ee i ee en ee ee ee ee ee eee SS 


WDODODODOODOODODOOOOOOO0O0DO 
NOUS WN —OODNOUE WN OOONOuM 


PRIPIMOMOMPONPINYIRD — 


VAX=1 ss-32 hed 
DISKSVASMASTER: CERF .SRCJERF .832;1 


14S 


36 32 30 20 33 30 56 08 P.AAZ: 
00 00 7, QOOEO P.AAY: 
46 52 45 3A 59 52 41 52 42 49 4C 26 5§ . ER P.ABB: 
23 4C 54 ge 42 49 4 oF ae 
99000016 100 P.ABA: 
000000" 001 
45 SA 49 53 SF 53 53 41 4C 43 SF 58 41 4D P.ABD: 
SS39805. HEL Panee 
53 45 55 4C 41 56 SF 53 53 41 4C & 6} § P.ABF: 
$398085. BENG Pate: 
53 45 SA 49 53 SF 45 4C 42 41 2 4 P.ABH: 
00000008 00140 P.ABG: 
00090000 00144 
53 45 43 49 56 45 44 O148 P.ABJ: 
SHURE, Bis Pa 
59 52 546 GE 45 SF 45 54 41 4C 53 4 41 52 56 00138 P.ABL: 
45 4C 42 41 546 SF 00167 
90160 
90000015 0170 P.ABK: 
0990000" 0174 
53 45 50 59 54 SF 55 4 O78 P.ABN: 
00000009 ath P.ABM: 
00090000" 0188 
45 4D 41 4E SF 45 4C 55 46 GF 4D SF 4E 4 40 O18¢ P.ABP: 
90000010 19C P.ABO: 
00000000" 001A0 
45 4D 41 4E SF 45 4C 55 464 4F 4D SF 58 41 4 Ag P.ABR: 
000 aos 1B4 P.ABQ: 
00000000" 00188 
53 45 SA 49 53 SF S58 41 4D SF 4E 49 4D 1B P.ABT: 
90000000 O1CC P.ABS: 
0000000" 00100 


QOOBC IDENT:: 


00000 OPEN_TEXT_LIB: 


Errorlog Report Formatter 15- “$00: 1984 3: 35: 13 


»PSECT 
ren 
«BLK 


«LON 4 I 
“ADDRESS. P 


ASCII 


-BLKB 
LONG 
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\v05~026\ 


AAZ 
\SYSSLIBRARY:ERFLIB.TLB\ 


° 2 
«ADDRESS P.AB 


ASCII 


- ABB 
\MAX_CLASS_SIZE\ 


4 
SS P.ABD 
\CLASS_VALUES\ 


SS P.ABF 
\TABLE_SIZES\ 


:LO 11 
“ADDRESS P.AB 


ASCII 
BLKB 


LONG 7 
-ADDRESS P 


ASCII 
-BLKB 


"A 


-LONG 1% 
«ADDRESS P 


ASCII 
«LONG 


eADDRESS P 


-ASCII 
-BLKB 
- LONG 


RESS 
ASCII 


. ABH 
PPeessees 


.ABJ 
\TRANSLATE_ENTRY_TABLE\ 


P.ABN 
\MIN_MODULE _NAMES\ 


- ABP 
\MAX -MODULE __NAMES\ 
"3 

- ABR 
yin MAX_SIZES\ 
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-ADDRESS P.ABT 


»PSECT 
-BLKB 


SGLOBAL$,NOEXE, PIC.2 
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-EXTRN SYSSTRNLNM, SYSSPUTMSG 
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v04-000 ° 12780-1382 93:56:15 DISKSVMSMASTER: CERF. OSRCSERF. 832;1 9° 43) vo. 
8-45. ; : 
53 01 0 005 7$ MOVL #1, FUNCTION : 1790 ; 
é 38 AA 9 D6 MOVAB P Asc. MODULE _NAME _DESC : : 
53 01 p0 DC 8$ MOVL #1, FUNCTION + 1791 ; 
69 4¢ AA 9 OOODE MOVAB P Ast. MODULE _NAME_DESC ; : 
53 3 0 # 9$: MOVL is FUNCTION + 1792 : 
69 60 AA 9 E8 MOVAB P ABs. MODULE _NAME _DESC ; : 
BO a9 99010 03 FD EE 10$: MOVL y6353 39, HERAL : 179 : 
B4 a9 000000006 BF »D F MOVL  #ERF HERALD “HERALD +4 + 179 : 
B8 A9 00010001 F DO OOOFE MOVL § #65537, HERALD + 1798 ; 
BC Ag 54 Ad D0 0106 MOVL ‘IDENT, HERALDe + 1800 ; 
7E 7C 00108 CLRQ  =(SP) + 1801 ; 
7E 04 00100 CLRL = =( SP) : : 
BO AS 9F 0010F PUSHAB HERALD ; : 
000000006 90 04 FB O12 CALLS #4, SYSSPUTMSG : : 
04 00 0011 MOVL #4. FUNCTION : 1802 : 
69 70 AA 9E 0011C¢ MOVAB P.ABI, MODULE_NAME_DESC + 180 : 
SC 1100120 11$: BRB 19$ + 1789 : 
53 02 00 001 g 12$:  MOVL #2, FUNCTION + 1807 ; 
69 0090 CA 9E 001 MOVAB P.ABK, MODULE_N ESC + 1808 ; 
28 A9 000000006 60 DO O012A MOVi TRANSLATE ENTRY wMABre’ TABLE _ADDRESS + 1809 F 
2¢ a9 000000006 00 90 00132 MOVE § MAX_MISC_TYPE, TABLE_LENGTH + 1810 F 
F 11 OO13A BRB gs : 1811 ; 
53 02 00 0013c 13s MOVL #2, FUNCTION > 1815 ; 
69 O0A4 CA 4 0013F MOVAB P.ABM, MODULE_NAME_DESC + 1816 : 
28 «Ad AD D 00144 MOVL  PROCESSOR_TYPE_TABLE, TABLE_ADDRESS + 1817 : 
28 11 00149 BRB 17$ : 1818 : 
53 05 00 00148 14$:  MOVL #5, FUNCTION + 1824 ; 
69 ooBc «CCA 3 00146 MOVAB P. hor MODULE _N + 1825 : 
9¢ Ad AI 00 0015 MOVL min. MODULES LOESC. wai _TABLE_ADDRESS + 1826 : 
1¢ (11 0138 BRB 173" : 1827 ; 
53 05 00 0015A 15$ MOVL #5, FUNCTION : 183¢ ; 
69 00D4 CA 3 0150 MOVAB P.ABQ, MODULE_N + 183 ; 
9¢ AD F4 OAD OD O162 MOVL § MAX_MODULES_ BES. pest. TABLE_ADDRESS : 1834 ; 
OD 11 0016 BRB 173" > 1835 ; 
53 02 00 00169 16$ MOVL #2, FUNCTION > 1848 ; 
69 OOEC CA 9 16¢ MOVAB P.ABS MODULE NAME ESC > 1849 ; 
28 «AD FR AQ p 171 MOVL  MIN_MAX tes. “TABLE gAdDRESS : 1850 : 
2c AD E2 AP 90 00176 178: MOVE RAN-CPUIVPES; TABLE _L : 1851 : 
0009 31 Ole 188: BRW § - : 1935 ; 
56 E2 Ad %3C 00181 20$:  MOVZWL MAX_CPU_TYPES, R6 : 1862 ; 
52 D4 001 3 CLRL - RANGE_LOOP : : 
4A 11 001 BRB 238 ; : 
54 Es A9 00 189 21$:  MOVL RANGE_TABLE_ADDR, R4 > 1866 : 
20 FBO p 1 MOVL MINT MAX TABLE SIZES, RO > 1864 ; 
604 191 MOVZ2WL (ROJCRANGE LOOP), RO ; : 
1 198 BEQL 29s : ; 
7E 50 78 001 ASHL #1, RO, -(SP) > 1867 : 
6 ; CO 00198 ADDL2 He, (S (SP) ; : 
000000006 F 196 CALLS #1. GET vn : : 
644 0 DO OO1A MOVL RO. (R4TCRANGE_LOOP) : F 
54 FC Ad «DO 001A9 MOVL § MIN_RANGE_TABLE_ADDR, R4 > 1868 ; 


] 
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v04-000 ° 14- =Sep- 198 93: $6: 3 DISKSVMSMASTER: CERF .SRCJERF .832;1 ° ad v4 
FB AD DO OO1AD MOV MIN_MAX_TABLE_SIZES, RO 3 1869 :] 
3 008? 5 1B1 MOVZWL (ROJCRANGE LOOP, RO : 7] 
7E 1B> ASHL #1, RO, -(SP) F :] 
6 ¢ C0 0018 ADDL2 #2, (SP) : : 
B ALLS #1, GET_VM : : 
000000006 FB 001 CALLS ET : 1 
644 0 p iC HOVL RO, (R4TCRANGE_LOOPJ Paes ; | 
644g D4 OOICD 228: — CLAL (RA) CRANGE LOOP) : 1895 7] 
50 FC Ad «DO OIC MOVL § MIN RANGE TABLE ADDR, RO ; 1874 7] 
604 D4 1D CLRL —- (ROSCRA NGE OP] ; :] 
B2 53 56 F3 001D3 238 AOBLEQ R6, RAN EC00r. 3" + 1862 7] 
E2 Ad 3C 0010 MOVZ2WL MAX_CPU OE OPE + 1882 : 1 
34 D4 00108 CLRL - RANGE_LOO ; :] 
3 11 00100 BRB 25$ . ; 1 
51 AD 00 OO1DF 248: MOVL MIN_MAX TABLE 3s 2ES, R1 . 1883 : 1 
6144 8B OIES TSTW © (RISCRANGE_L ; : 1 
3A 1 166 BEQL  25$ ; :] 
53 é 09 O1E MOVL #2, FUNCTION : 1885 4 
0 FO p O1EB MOVL MIN MODULES D gst. & : 1886 : 1 
69 6044 é 1€F MOVAQ  (ROJCRANGE_COOP RODULE _NAME _DESC F : 1 
50 FC D OFS MOVL MIN RANG ge E ADDR : 1887 3 1 
38 a9 6044 00 O1F MOVL (ROT RANGE. LOOP], TABLE_ADDRESS ; : 1 
¢ ag 6144 O1FC CVTWB (R1)CRANGE-LOOPJ, TABLE-LENGTH ; 1888 : 1 
cc }36—A9 «DS 00201 CLRL _—«LTEM_COUN + 1889 31 
69 DD 00 PUSHL MODUCE_NAME_DESC + 1890 31 
3 Dd 00 PUSHL ee : 31 
00000000v 90 Q FB 020. CALLS #2, GET = JBRARY_ TEXT : 31 
A E9 0020F BLBC STATUS : 71 
C9 52 £3 00212 25$:  AOBLEQ R Mace _LOOP, 24$ + 1883 31 
3F 611 00 16 BRB ; 1892 31 
52 E2 Ad 3¢ 0 18 26$:  MOVZWL MAX grunt TYPES, R2 : 190 31 
4 d4 0021¢ CLRL ANG ; 31 
3 11 00 IF BRB BBS : 71 
51 F8 AD DO 00220 27$:  MOVL  MIN_MAX_TABLE SIZES, R1 + 1903 71 
6144 BS 00224 TSTW = (RT RITCRARGE _LOOP : 31 
2A 13 00207 BEQL 28s F 71 
53 ; 06 0229 MOVL #2, FUNCTION : 1905 71 
50 Fe OA p 0 ¢ MOVL § MAX_MODULES DESC, RO : 1906 31 
69 6044 7E MOVAQ CROSLRANGE COOP], MODULE_NAME_DESC : 71 
50 EB AD D MOVL MAX RANGE LE_ADDR : 1907 3 1 
28 a9 6044 p MOVL  (ROJCRANGE_LOOPT, TABLE_ADDRESS : : 
C Ag 6144 D CvVTWB © (R1)CRANGE-LOOP], TABLE~LENGTH + 1908 : 1 
CC OAD «Ok 0024 CLRL 3=s«sSA' TEM : 1909 3 
69 DD 0024 PUSHL mOBUCE NAME_DESC : 1910 : 
DD 0024 PUSHL FUNC : 3 1 
00000000v 0 F 49 CALLS #2, GET_LIBRARY_TEXT : 7 
E BLBC STATUS, ~34$ ; 3 
9 4 F 8$ AOBLEQ Re, RANGE LOOP, 27% ; 1903 3] 
58 9 9$ MOVE NOCALC NEEDED : 191 3 | 
OF E A 30$ BLBS  NOCALL_NEEDED, 318 : 1916 3 | 
DD 0025D PUSHL MODULE -NAME_DE ; 1917 3 | 
00000000v pe 0058) eure BUNCTION pany TEXT . 
63 i és BLBS <FATUS. “833 ; 3 | 
8 94 ee 1$: CLRB NOCALL_NEEDED + 1919 3 | 
FE4S 55 01 bB F1 E $38: ACBL ie #T, LOOP_COUNT, 5$ : 1787 34 


04-000 a twhalipens coreine-: IEASec19RS GHS9H19 YMCLTABALRTGRE CLA %SRSeurosarn "2% r8 


000000006 9 at ‘ tt CALLS Hae OS Ridpa 
e i BLBS Aus. 93s ; 1924 

m a ; Bet caste ; 
BB a Be A - 
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ne GET_LIBRARY_TEXT ( Function, module_name ) = 


"4 OC 


R 

& 

unctional description 

! This routine looks up the text module name specified. It 
! reads the records from that text module. If a record 
; does not have a comment character in the first three 
; character positions and the record is not of length zero, 
then the parsing routine specified by FUNCTION is called. 
; Calling sequence 

GET_LIBRARY_TEXT ( Function, module_name ) 
Input parameters 

Function : Value specifying; 
' 

a 

i] 

' 

' 

t 

! 

] 

{ 

4 

' 

! 

1 

i] 

in 

' 


oo oOo DOOOOOOOOOOOOOOOOO 


3} 1 1 

3 3 1 5 

3 3 1930 

3 } : 1 

:1 1 g 

» > 1934 

3 ; ' 5 

: ; 

: 1 1 § 

3; 1 1940 

3 ' ' 1 

:1 1 : 

| 1948 

+ 1391 1 6 1 Build class tables 

3 1 4 1 ; Parse ard convert to binary a list of values 
3; 139 1948 Allocate end initialize processor and device tables 
3 1394 1949 4 Parse device description records. See text module 
3 ’ 95 : 9 DEVICES for more information. 

: ‘ 3 : ¢ Module_name : Address of descriptor for module name. 

: 1399 1954 i Qutput parameters 

: 1400 1955 ! 

HRs wr 

: 1408 1998 i Routine value 

: 140 1960 Worst error is returned. 

3 14 1961 

3 1408 196 

3 1409 1964 LOCAL 

3 1410 1965 Offset, 

3: 1411 1208 Position, 

3 Vols 196 Status; 

We Wg, 

; tate 1970 Use MODULE_NAME as the key to find the text module in Library. 

: 141 197 ; 

; 1633 1998 Status = LBRSLOOKUP_KEY ( Library, index. »Module_name, Text_rfa) ; 

3 102 ore If NOT .status then Signal (erf_badmodnam, 1, .module_name, .status) ; 
OBE 

; ins 13°8 iREAD A RECORD FROM THE TEXT LIBRARY 

3 1426 197 ! If the record length is not zero then cas to a decode routine. 

3 1425 1980 : Search the record for the comment character ‘". 

3 166 + If “!"’ is in one of the first three positions get a new record. 

: 1438 19 ' 

3 1258 1984 While Status = LBRSGET_RECORD ( Library_index, Record_desc, Record_desc) do 
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ERF Errorlog Report Formatter 18-3 ep-1 1 VAX-11 Bliss-32 V4. Page 50 
v04-000 ’ 12neh=}88t 3:35:13 = MN biwGhASteRcceRE saclerr.032;1 2% c425 
: 1430 1985 ; Begin 
; 14 1 13 § i it, Record. desc Cdsc$w_length] NEQ 0 then 
3 14 ‘ 1988 4 Position = CHSFIND_CH (. ere desc Fdscéw. Length] 
3 14 1333 4 Record_desc (Cdsc$a “pointerd, we°t* 33 
: 1435 1990 4 If .position NEQ 0 t 
3 1? 133) ? {Sits set = CHSDIFF r inten » «Record_desc Cdsc$a _pointer]) 
3: 1438 1398 4 Offset = 4; 
: 1439 1994 4 
3; 1440 1995 4 If reba GTR 3 then 
3 1441 1298 4 2 punegion from 1 to ; of set 
3 1206 1997 & ild_class_tables (); ' Inits device class table 
3: 144 1998 4 f tes ~max_min_table_ record (); ! Min max table parser 
3 1444 1999 4 Parse_max ztable. size (); ! Parse & convert to binary 
: 1445 000 4 : Parse_device_desc_record (); ! Parse & return strings 
3: 14646 001 4 : Parse_module_names (); 
3 1447 002 4 sear 
3 1448 00 End; 
1480 008 _— 
3 1451 00 Item_count = 0; ! Global used by several routines 
: 1326 200 ! as there array index. 
3: 145 008 Return true ; 
3 1454 009 1 End ; 


007C 00000 GET fp ORIN TERT) 


ORD Save R2,R3,R4,R5,R6 : 1928 
56 00000000' 00 9E 0000 MOVAB RECORD_DESC, R6 ; 
0 oF F 90009 PUSHAB TEXT RFA + 1973 
8 Ae DD PUSHL MODULE Nan 3 
C4 Ag OF 90008 PUSHAB ; BRARY 1 NDEX ; 
000000006 00 03 FB pole CALLS » EBRSLOOKUP. KEY 3 
55 20 00 001 MOVL RO STATUS ; 
14 3 E8 0001C LBS STATUS, 1$ + 1974 
55 DD O001F PUSHL STATUS ; 
08 AC 0D 00021 PUSHL  MODULE_NAME ; 
or DD 00 4 PUSHL ; 
000000006 8F DD 00026 PUSHL #ERF_BADMODNAM : 
000000006 00 56 FB 09 me CALLS #4, CIBSSIGNAL Pens 
6 pp PUSHL R6 3 
C4 Ag F PUSHAB L BRARY_INDEX F 
000000006 90 F A CALLS CORES GET_RECORD : 
5 g D 41 MOVL STAT us = ; 
60 44 BLBC RO, St 11$ ; 
66 47 MOVZWL ; CORD “DESC, RO > 1986 
oo A te BOVE —-RECORD_DESC#4, R2 ? 1989 
62 35 ; B, § LOCC a5§ » (R2)° : 1988 
¢ 2 4 BNEQ ; 
D4 6 CLRL sR : 
54 1 00 2s: MOVL R1, POSITION ; 


—_—— 
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ERF Errorlog Report Formatter 1§-56 -1984 62:14 VAX-11 Bliss-32 V4.0-74 Page 51 
v04-000 — Ve~SePr}BRe 3:35:13 PGA tea eRe seeSenr.ese;1 78°42! 
1 058 BEQL. 3$ : 1990 
53 54 1 (3 aD SUBL3 Re. POSITION, OFFSET + 1991 
53 4 00 3 3$: MOVL #4, OFFSET t 1993 
0 ; D1 66 4$: CMPL OFFSET, #3 + 1995 
CB 15 0006 BLEQ 1$ : 
04 01 04 AC CF $8 CASEL EUNCTION, wi, #6 : 1996 
0025 001C 0013 QO0A 0070 5$ WORD : -5$,- : 
002 0078 $-3$.- : 
#8580 
00000000v 00 00 FB O007A 6$ CALLS i: BUILD_CLASS_TABLES * 1997 
BO 11 00081 BRB 1$ ; 
00000000v 00 00 FB 00083 7$ CALLS #0, PARSE_MAX_MIN_TABLE_RECORD : 1998 
A? 11 O008A BRB 1$ ; 
00000000v 00 00 FB 9008¢ 8$ CALLS #0, PARSE_MAX_TABLE_SIZE : 1999 
9 11 0009 BRB 1$ ; 
00000000v 00 00 FB 90095 9$ CALLS #0, PARSE_DEVICE_DESC_RECORD : 2000 
95 11 0009C BRB 1$ : 
00000000v 00 0 FB 0009 10$ CALLS #0, PARSE_MODULE_NAMES ; 2001 
C 11 000A BRB 1$ : 1996 
BC A6 D4 OOOA7 118 CLRL ITEM_ COUNT : 2006 
50 01 DO OOOAA MOVL #1, RO : 2008 
04 OO0AD RET + 2009 


; Routine Size: 174 bytes, Routine Base: SCODE + 0987 


; 1455 2010 1 


a8 
8 
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1R 
BEGIN 
ets 
Functional description 
This routine ot togates memory for tables which will be filled 
! 
i 
i 
i 
i 
i 
i 
i 
! 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 

2 
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4 1 outine BUILD_CLASS_TABLES = 

4 1 EGI 

4 1 

4 1 

te : 

46 1 with the information obtained from the ERF text Library in 
4 1 SYSSLIBRARY. See the text Library modules for a description 
4 1 of the text Library records. 


Calling sequence 
Build_class_tables () 
! Input parameters 


Output parameters 

Class_dir, class_names, dev_addrs_ptr, dev_class_ptr 
Routine value 

Worst error is returned. 


MEUM SO OONAVUVES WIN" OOONOUS Wh 


WAN 


PIPPIN PIPIPINININNPUPTNTN 


SS 


OOOO CoooooosaCoooo°oo 


Ww 


OWN 


Be NN I INNS NESS 


Context, Continuation flag if this flag is set then more 
values in comma seperated List 

Lenges of the field pointed to by VALUE_ADDR 

Status after a convert 

The first field of a text record 


Pointer to current filed in the text record 


SUS 


Size, 
Status, 


oo 
oO 


Index, 
Value_addr; 


; LOCAL 
iClass_mames = Get_vm ((.size+1) * 


RRRRRLELK 


2328 
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Class_names; ! Address of DC$_xxx strings — 
135); ! Class name + string size = 13 


ra 


ee a ee Le er a ee nL ee a ee he 
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ERF Errorlog Report Formatter 18-58 $1984 23:42:14 VAX-11 Bliss-32 V4.0-74 Page 53. 
v04-000 ste 12-80 0= 1984 $3:35:13 DLSKSVMSMASTERSCERE SRCSERF .B32:1 . (16) | 
; 14 9 2! | 
; 1437 i Call to obtain the index and the current value address (value_addr). 
; 1299 ; 
; 1280 8 Context = 0; 
: 1 oi 34 CALL_FUNCTION ( Parse_text_record ( context, index, value_addr, size ) ); 
; 
1808 036 
; 1504 b2 | 
; 1505 058 ' 
; 1506 059 ! Convert the current value from ASCII to binary and use it to allocate 
3 1308 gg0 memory for tables. Use the index value to determin which table to build. 
; 1509 066 Status = LIBSCVT_DTB ( .size, .Value_addr, size ); 
; 13i9 sb If NOT .status then Signal (erf_cvterr, 2,.size,value_addr) ; 
; 1216 065 If .class_dir EQL 0 then 
3 13) 64 Begin 
3; 1514 06 Class. dir = Get_vm ((.size+1) * 6); ! Device Class(2 bytes + device name table addr (longword)= 6 
; 1515 068 Max_classes = .Size; ! Total number of dev. classes 
3; 1516 069 Dev_addrs_ptr = Class_dirl.max_classes+1]; 
3; 1517 070 Dev_class_ptr = .class_dir ; 
: 1518 071 End 
3; 1519 Ore Else 
; 1520 07 Begin ; 
; 1521 074 If .index GTR .max_classes then signal (erf_toomancls, 1, .index); 
3 33 ¢ 075 Class_dirl.index] = .size; ! Set device class values 
3 13 076 End; 
3: 1526 077 
: 1525 2078 Return true ; 
3; 1526 2079 1 End ; 
-PSECT SOWNS,NOEXE, PIC,2 
a8 CONTEXT: .BLKB 4 
0020 SIZE: -BLKB 4 
B05 4 STATUS: .BLKB 4 
0028 INDEX: .BLKB 4 
0002C VALUE_ADDR: 
-BLKB 4 
~-PSECT $CODE,NOWRT, PIC,2 
003C 00000 BUILD_CLASS_TABLES: 
“ ,WORD Save R2,R3,R4,R5 : 2011 
5 G 9E 00 02 MOVAB LIBS$SIGNAL, R5 ; 
4 G 9E S 0 MOVAB CLASS_DIR, R4 : 
3 ’ 3E 00010 MOVAB MAX CLASSES, R3 ; 
2 00000000° ; 1 VAB SIZE, R 3 
FC Ae OD IF CLRL CONTEXT ; 2053 
5 D PUSHL R : 2054 
oc Ad 9F 00023 PUSHAB VALUE_ADDR ; 
Ad 9F 00026 PUSHAB INDEX : 


ets s-32 V4.0- 


Es 

ERE Errorlog Report Fornatt AKe11 
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FC A2 OOF PUSHAB CONTEXT ; 
00000000v 90 4 re 6 g CALLS #4 PARSE TEXT_RECORD : 
6 E BLBC STATUS, 5$ : 
DD 000 PUSHL R2 : 2062 
OC 85 Bb 00038 pusnt | Sqveen 
000000006 0 p F D CALLS 3h LIBSCVT_ TB ; 
046 =A D 44 MOVL RO. STATUS ~ : 
04 A f 48 BLBS STATUS, 1$ : 2063 
C Ad SF 0004C PUSHAB VALUE_ADDR : 
DD 0004F PUSHL size : 
DD 3 PUSHL F 
000000006 8F DD PUSHL #ERF_CVTERR : 
65 04 FB 0005 CALLS #4, CIBSSIGNAL ; 
64 D5 0005C 18: TSTL LASS_DIR : 2065 
6 1 O05 BNEG ; 
50 62 06 6 006 MULL3. #6, SIZE, RO + 2067 
06 AO SF 00064 PUSHAB 6(RO) ; 
000000006 00 gi FB 00067 CALLS a GET_vM : 
64 0 pd 006E MOVL RO, CLASS_DIR : 
63 62 90 00071 MOVB SIZE MAX “CLASSES > 2068 
5] 64 DO 00074 MOVL CLASS_D ze” a0 + 2069 
50 3 OA 90077 MOVZBL MAX erAseE S, 3 
BF 02 A140 3€& OOO7A MOVAW 2(RT)CROJ, DEV VCADDRS_PTR ; 
(3 (OA 51 DO 00080 MOVL 1, DEV_CLASS_PTR + 2070 
23 114 00084 BRB 4$° > 2065 
50 08 A2 DO 00086 2$: MOVL INDE : 2074 
50 63 08 00 ED 0008A CMPZV #0, *, 9 _CLASSES, RO ; 
0D 18 O008F BGEG 46: 3$ ; 
50 0D 00091 PUSHL RO ; 
01 DD 00093 PUSHL #1 : 
000000006 8F DD 00095 PUSHL #ERF_TOOMANCLS : 
65 03 FB 00098 CALLS #3, CIBSSIGNAL ; 
51 64 D0 0009E 3S: MOVL CLASS DIR. R1 : 2075 
50 08 ag DO 000A1 MOVL INDEX’ RO : 
6140 62 BO 000AS MOVW SIZE, (R1)CROJ : 
50 07 00 O00A9 4$ MOVL #1, RO : 2078 
04 OOOAC 5$ RET : 2079 
; Routine Size: 173 bytes, Routine Base: S$CODE + 0A35 
| 
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Routine PARSE_MAX_MIN_TABLE_RECORD = 
BEGIN 


‘44 


Functional description 


This routine calls parse_text_record to obtain a value from 
the conse seperated List of values. The value is converted 
to binary and place in a table. 


Calling sequence 


Output parameters 


Fills the table specified by TABLE_ADDRESS. 


Routine value 


' 
i 
i 
i 
i 
i 
i 
; 
; Input parameters 
i 
i 
i 
i 
i 
' 
' 
i 


Worst error is returned. 


Context, 


Status, 
Value_addr; 
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| 
Context = 0; ! Clear the context 
Do 
Begin 
Item_count = .item_count + 1; 


If .item_count GTR he ohne ied then 
(signal (erf_badevtyp, 2, 


CALL_FUNCTION ( Parse_text_record ( context, index, value_addr, size ) ); 


-item_ count, .Module_name_desc); Return true); 


Status = LIBSCVT_DTB ( .size, .Value_addr, size ); 
If NOT .status fhen Signal (erf_cvterr, é,.size,value_addr) ; 


Table_address C.Item_count] = .size; 
End 
While .context EQL 1; 


Return true ; 
1 End; 
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001C 00000 PARSE_MAX_MIN_TABLE_RECORD: 
-@ORD” Save R2,R3,R4 : 2080 
54 000000006 00 9€ 0000 MOVAB LIBSSIGNAL, R4 : 
53 00000000' 00 H 0000 MOV ITEM_COUNT. R3 ; 
SE 10 ¢ 90019 SUBL2 #16, SP ; 
04 AE 04 0001 CLRL «CONTEXT > 2110 
63 D6 00016 1$ INCL  ITEM_COUNT + 2114 
50 63 D0 90018 MOVL =‘ ITEM™COUNT, R0 + 2116 
50 60 A3 08 0 FD 0018 CMP ZV 40, #8, TABLE_LENGTH, RO ; 
34 AS DD 00023 PUSHL MODULE_NAME_DESC : 2117 
50 DD 000 6 PUSHL R : 
G2 DD 000 PUSHL # ; 
000000006 8F DD 0002A PUSHL #ERF_BADEVTYP ; 
4 04 FB 000 CALLS #4, CISS$SIGNAL ; 
4F 11 90 BRB 4$ ; 
08 AE OF 2$ PUSHAB SIZE t 2119 
10 AE OF 00 PUSHAB VALUE_ADDR ; 
08 AE 9F 000 PUSHAB INDEX ; 
10 AE 9F 00 c PUSHAB CONTEXT ; 
00000000v 90 4 FB 4 CALLS #4 PARSE TEXT_RECORD : 
C 0 - 48 BLBC = STATUS, 5$ ; 
08 AE 9F 00048 PUSHAB + 2122 
10 AE OD af PUSHL VALUE_ADDR : 
10 AE OD PUSHL ; 
000000006 99 F 4 CALLS #3, LIBSCVT_DTB : 
D 8 MOVL RO. STATUS ; 
11 f F BLBS STATUS, 3$ > 2123 
Oc AE SF 0006 PUSHAB VALUE_ADDR : 
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; ; 3 } 3 1 Routine PARSE_MAX_TABLE_SIZE = ; 
: 1585 135 § We 3 
3 } ! § : Functional description : 
31 138 : With the information that is returned from a call to | : 
3% 139 : *PARSE_TEXT_RECORD’, this routine allocates eteregs. ‘ 
; 1590 140 ; The index value of the btorery record being parse ° 
; 1591 141 : determines which table pointers are initialized. ° 
3 } 4 146 / It also sets up the table of addresses pointed to ‘ 
: : a7 Me : by "DEV_ADDR_PTR'. : 
; 95 145 i Calling sequence ; 
; ; 3 149 Input parameters : 
: 1398 149 2! None. . 
: 1600 150 : ‘ 
; Hb e't 13 : Output parameters ‘ 
; 1808 138 i ALL the table pointers for devices and cpu tables ‘ 
3 ee: 138 are set up here and are global. ‘ 
; 1606 136 Routine value ; 
; 1608 138 Worst error is returned. : 
; 1610 160 2 i---- : 
; 1611 161 : 
; + a 166 OWN : 
; 161 16 De_class: word, ! Temp for device class : 
; 1614 164 Device_addr, ! Temp for device table address ; 
3; 1615 165 Context, ! Flag which specifies if there are more items in the text record : 
3 1oi6 166 Image_addr, ° 
3 161 167 ndex, ! Value of the first item in the text record : 
; 1618 168 ize, ! Size of the item returned. : 
; 1619 169 Status, ! Status of the LIBS call : 
; 1620 170 Value_addr, ! Address of the current value in the text record : 
; 1621 171 Version_addr, ‘ 
3 1666 1% Xfer_addr; : 
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Call to obtain the index and the current value address (value_addr). 


Context = 0; 
CALL_FUNCTION ( Parse_text_record ( context, index, value_addr, size ) ); 


ee) 
OOO NAUIE 


| 
i Convert the current value from ASCII to binary and use it to allocate 
memory for tables. Use the index value to determin which table to build. 
Status = LIBSCVT_DTB ( .size, .Value_addr, size ); 
If NOT .status then Signal (erf_cvterr, 2..size,value_addr) ; 


PAA AAAAAAAO 


! 
Update the size for non-used first locations in tables. 
Size = .size + 1 : 


' If INDEX is equal to one then allocate storage for the 


iy 
: CPU and verfification table and save the table addresses. 


If .index EQL 1 then 
Begin 


Local Amount; 
Amount = .size * Lonquerd: 


woowowovownd 
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Max_cpu_types = .size -1; 
Min_range_table_addr = get_vm (.amount); 
Max_range_table_addr = get_vm (.amount); 
Min_modul@s_dest = get_vm T-anount 2); 
Max_modules_desc = get_vm (.amountt2); 
Processor_t pe, pals = get_vm (.size * word_size); 
Min_max_table_s 

Return fErue; 
End; 


zes = get_vm (.size * word_size); 


PAPAAAOAAAO 
MAMAN MAMUI 


Allocate the storage for the device, version number, xfer address, 
and image name tables. 


Device_addr = get_vm (.size * word_size); 
Version_addr = get_vm (.size * word size); 
Xfer_addr = get_vm (.size * longword); 
Image_addr = get_vm (.size * descriptor_length); 


QS 


i Via the index determine which ontry is being processed and 
: copy the addresses/size of the tables to the appropriate places. 


Case index from 2 to 9 of set 
2): Begi 


n 
Disk devi es = edovice ddr; 
Disk_version = .version_addr; 
Disk_xfer_addr = .xfer_addr; 
Disk_image = .image_addr; 
Max_disk_type = .size - 1; 
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E 15-S VAX=-11 ss- -74 
vO4 14-Sep- DISKSVMSMASTE cen SRCSERF .B32;1 
3 1686 1 Disk devices(0] = .size; 

31 § De_class = DC$_DISK; 

168s i _— 

3 3 5 (33: Begin 

3 3 $ Tape_devices = odovice addr; 

3 1 Tape_version = .version_addr; 

3 1 3 Tape_xfer_addr = .xfer_addr; 

; 1690 Tape_image = .image_addr; 

3 163] 40 Max_fape type = .Size - 1; 

3 1 36 4) Tape _devices(0) = .size; 

3 199) tg pe class = DCS_TAPE; 

> 1695 44 : 

; 1698 45 (4): Begin 

3; 169 rf Scom_.devices = .device_addr; 

3; 1698 4 Scom_version = .version_addr; 

3 144 48 Scom_xfer_addr = .xfer_addr; 

: 1700 49 Scom_image = .image_addr; 

: 1701 50 Max_Scom types size - 1; 

: 1708 51 com_devices(0) = .size; 

: 1703 26 Be class = DC$_SCOM; 

; nd; 

; 1705 54 

: 1706 55 (53: Begin 

3; 1707 56 Lp_devices = .device_addr; 

3 1708 57 Lp_version = .version_addr; 

; 17 58 Lp_xfer_addr = .xfer_addr; 

; yee 22 Lp_ image = + image addr; 

3 ax pe = .size - 1; 

: ine 61 Lp devicest0) = .size; 

; at $¢ pcqcless = DCS_LP; 

: no; 

3 1715 64 

3 1718 65 [6]: Begin 

3; 171 $6 Realtime_devices = .device_addr; 
; 1718 6 Realtime_version = .version_addr; 
; 1719 68 Realtime_xfer_addr = .xfer_addr; 
: 1720 69 Realtime image = .image_addr; 

> 1721 70 Max_realtime types size - 1; 

: 17 ; 71 Realtime_devices(0) = .size; 

3 Hf ? i pe class = DCS_REALTIME; 

; nd; 

3; 1725 74 

3 17 § 75 (7): Begin 

3; 17 6 Bus_devices = -device addr; 

3 17 : 7 Bus_version = .version_addr; 

3 17 8 Bus_xfer_addr = .xfer_addr; 

3: 17 7 Bus_image = .image_addr; 

> 1731 0 Max~bus type = size - 1; 

3; 17 ¢ 1 Bus_devices 0 = .size; 

; 4 § pc Class = DC$_BUS; 

3 nd; 

3 1735 

3; 17 5 (8): Begin 

3 17 § Packet_processor_devices = .device_addr; 
3 17 Packet_processor_version = .version_addr; 


a2 
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Packet _processor_xfer_addr = .xfer_addr; 

hex mi processor_ = 19096 | = ,image_addr; 

Max_misc type = ‘si = Ba 

Packet_processor devices 63 = -size 

Translate_entry fable = get. _vm tsetse * word_size); 
pc class = ocs_ Y7ERO. CLAS 


SNS 
Ww 


(93: Begin 
Workstation_devices = -device, addr; 
Workstation_version = sere on_addr; 
Workstation_xfer_addr = .x fers addr; 
Workstation_image = + inoge. add rt 
Max Workstation tyes ize - |; 
Workstation devices(0] =  elees 

bcc class = BC$ ‘WORKSTATION; 

ng; 


COUTRANGE): Begin 
Return t (erf -badevval, 1, .index, .module_name_desc) ; 
Ze urn true’; 
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7 10 
7 11 
rea 18 3: 
765 14 ! Fill in the device class address of the ‘class_dir' table. It 
766 15 ! contains the pointers to the device class specific tables” (devices, 
! version number, xfer address, and image name 
ror : i b f dd d i ae 
769 \8 incr count from 1 to -max_classes do 
770 1 egin 
771 0 If .dev_class_ptr£.count) EQL .dc_class then ! Make sure its the right slot 
ak 1 4 Begin i for the addre 
77 § 4 Dev_addrs -ptrl. count] = .device_addr; i Save the address “of the 
774 4 Return true ; i “device name tables. 
775 4 End; 
re 5 End; 
778 § hefurn (erf_clstblerr, 1,.dc_class) ; 
A § 3 urn true; 


-PSECT SOWNS,NOEXE, PIC,2 
00030 oC oALASSs 


O00? sevice atht® 


LK 
B008t eaueny att 


-BLKB 
68 40 INDEX: <BLKB 
44 SIZE: .BLKB 
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-PSECT SCODE,NOWRT, PIC,2 


OOFC 00000 PARSE _MAX TABLE og lze: 
.@ORD ave fe. R3,R4,R5,R6,R7 ; 2133 


7 6 9E 9008 MOVAB Ptassi GNAL R? : 
§ G 9E 000 MOVAB GET_VM : 
9E 0010 MOVAB ODISR sbeyices, RS : 
4 00000000" 9 1 MOVAB SIZE; ; 
Fe AGO OO1E CLRL CONTEXT + 2177 
54 DD 00021 PUSHL  R4 : 2178 
08 Ad 9F 00023 PUSHAB VALUE_ADDR : 
FC «AG OF 000 § PUSHAB INDEX : 
F4 =AG OF 000 PUSHAB CONTEX ; 
00000000v 00 4 re 900 ¢ CALLS #4, PARSE_TEXT_RECORD : 
01 0 00 BLBS STATUS, 18 : 
4 000 RET : 
54 DD 00037 1$ PUSHL R4 + 2184 
08 AS DD 00039 PUSHL VALUE_ADDR : 
64 DD 0003C PUSHL : : 
000000006 00 > i 00% CALLS +e Lat" DTB 
04 Ab f $028 LBS STATUS, > 2185 
08 «AG OF 9040 PUSHAB SALUE S ADBR ; 
4 DD 0 30 PUSHL al : 
2 DD 0005 PUSHL : 
000000006 8F DD 00054 PUSHL  #ERF : 
67 4 FB OOOSA CALLS #4 Ciess1GNAL : 
64 06 90 D 2$: INCL = § + 2190 
01 FC As D| Oo CML NDEX, #1 + 2196 
50 4 p Mite MOVL + 2199 
52 0 : 68 ASHL a : 
A 50 A 6¢ SUBW3 HAX UtPU. 1YPES > 2200 
é Dd ] PUSHL hoa : 2201 
66 FB 7 CALLS i. CET ; 
54 C«CA D 7% MOVL MIN RANGE _TABLE_ADDR ; 
DD 0007A PUSHL Anuh + 2202 
66 F 7¢ CALLS #1, CET _vM : 
40 A D 7F MOVL 4 ; MAXTRANGE_TABLE_ADDR : 
52 C MULL2 #2. R27 > 2203 
DD PUSHL R : 
66 FB CALLS #1, GET_VM : 
468 AS D OVL RO. MINTMODULES_DESC F 
DD F PUSHL R > 2204 
ac RS 0 08 34 MOUL® RO’ MAXTMODULES_ DESC 
7E 64 1 5 98 ASHL ye SIZE, -(SP)~ > 2205 
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v04-000 ° V2zSeP7 1382 §3:35:13 — BTScovmemasterccerfosecderr.e32;1 29°26) vor 
000000006 F8 AG DO 0017 MOVL § IMAGE_ADDR, SCOM_IMAGE : ; 
4 p 1 MOVL size RO : ; 
45 AS 1 1 SUBB3 #1, RO, MAX_SCOM_TYPE : : 
1 70 AS 00 001 MOVL  SCOM_DEVICES, R1 : ; 
61 3 BO 001 mMOVW RO, TRI) F ; 
EC AG : 1 MOVW Of ¢- DC_CLASS : ; 
4 OAS ro Be ob Golem 10: BOUL —-—DEVICE_ADDR, LP_DEVICES : 
900000006 00 OC Ad DO OO1A MOVL VERSION ADDR, LP VERSION : ; 
000000006 00 1 AG DO OO1A MOVL XFER_ADBR, LP_XFE : : 
000000006 F8 AS 00 001B MOVL  IMAGE_ADDR, LP_IMAGE ; : 
4 p 188 MOVL size RO : ; 
000000006 00 1 18 SUBB3 «#1, RO, MAX_LP_TYPE : ; 
1 34 AS 06 gic MOVL LP_DEVICES,~R1 : : 
61 50 : 1¢ MOVW RO? (R1) : ; 
EC AG 43 BF 9B OOICA MOVZBW #60, DC_CLASS : ; 
64 11 OOICF 11$ BRB 15$ : ; 
64 AS FO AS DO 00101 128 MOVL DEVICE_ADDR, REALTIME_DEVICES : : 
000000006 00 o¢ AG DO 00106 MOVL VERSION ADDR, REALTIME VERSION : : 
000000006 00 10 Ad DO OO1DE MOVL XFER_ADBR, REALTIME _XFER_ADDR : : 
000000006 90 FB AG OO OO1E MOVL § IMAGE_ADDR, REALTIME_IMAGE : ; 
0 64 B09 1EE MOVL.  SIZE,~RO : ; 
44 AS 50 01 83 OO1F1 SUBB3 «#1, RO, MAX_REALTIME_TYPE : : 
51 64 AS 00 001F6 MOVL REALTIME_DEVICES, R1 : ; 
61 50 BO OO1FA MOVW RO, (R1) : ; 
EC AG 60 8F 98 001FD MOVZBW #96, DC_CLASS : ; 
3°11 60 02 13$: B6RB 17$ : ; 
FO. AS FO A& DO 00204 14$: MOVL DEVICE_ADDR, BUS_DEVICES : ; 
000000006 00 0C A& DO 00209 MOVL VERSION ADDR, BUS VERSION : : 
000000006 00 10 <A& DdO 00211 MOVL XFER_ADBR S_XFER_ADDOR 3 3 
000000006 90 F8 =A «OO 00 19 MOVL § IMAGE_ADDR, BUS_IMAGE : F 
0 64 p09 0221 MOVL. SIZE,~RO : : 
38 AS 50 01 83 00204 SUBB3 #1, RO, MAX_BUS_TYPE ; ; 
51 FO AS DO 00229 MOVL BUS_DEVICES> R1 : F 
61 50 B0 0 D MOVW RO, ~(R1) : : 
EC AG 80 BF 98 0 MOVZBW #128, DC_CLASS : : 
5 11 00235 15$: BRB 19$ : ; 
5c AS FO Ad DO 00237 16$:  MOVL DEVICE_ADDR, PACKET_PROCESSOR DEVICES : ; 
000000006 00 OC Ad DO 0023C MOVL VERSION ADDR, PACKET PROCESSOR VERSION : : 
000000006 00 10 Ad DO 00244 MOVL XFER_ADBR, PACKET PROCESSOR XFER_ADDR ; ; 
000000006 90 F8 AG DO 0024C MOVL § IMAGE_ADDR, PACKET_PROCESSOR_IMAGE : 3 
1 64 p 0254 MOVL. SIZE,~R1 : 3 
000000006 00 51 01 0257 SUBB3 «#1, _R1, MAX_MISC_TYPE ; 3 
50 Sc 60 AS COD 0 5F MOVL PACKET PROCESSOR DEVICES, RO : : 
$9 51 8 63 MOVW R1, (RO 3 3 
7E 1 1 0266 ASH #1. R1, -(SP) F : 
66 1 FB 026A CALLS * GET_vM : : 
000000006 00 0 D 0 gp MOV RO, TRANSLATE_ENTRY_TABLE : : 
eC AG B4 4 CLRW DC CLASS : : 
33 11 00277 17$ BRB : : 
OAs 5 FO «AG CO 79 18$ MOVL § DEVICE_ADDR, WORKSTATION DEVICES ; : 
©9900006 00 oC As OD 7F MOVL VERSION ADDR, WORKSTATION VERSION ; : 
90004006 0 19 AG D 7 MOVL §XFER_ADBR, WORKSTATION XFER_ADDR ; : 
00000006 F ad D F HOVE IMAGE ADDR, WORKSTATIOR_IMAGE : ; 
47 AS 1 3 9A 5 #1, RO, MAX_WORKSTATION_TYPE 3 
1 00A4 «60 C5_sCO OF MOVL  WORKSTATIONDEVICES, R1 ; 
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; Routine Size: 742 bytes, Routine Base: $CODE + OB6A 
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14 VAX-11 Bliss-32 V4.0-74 e 5 
17 DISKSVMSMASTER: CERF .SRCJERF .832;1 age 383 
(R1) : 
#70, DC_CLASS > 2303) 
MAX_CLASSES, R3 3 3 18 
DC CLA » Re ; 2320) 
500" : 
DEV CLASS PTR, R1 : 
(RITCCOUNTI 3 
40, #16, a(SP)+, R2 : 
Py | 
DEV_ADDRS_PTR, R1 : 2322 
omen (R1) CCOUNT) S seae 
R3, COUNT, 20$ : 238 
Re : 327 
wERF CLSTBLERR : 
oe C1BSS1GNAL : P 
: : $338 
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H 178¢ Q 1 Routine PARSE_DEVICE_DESC_RECORD = H 
2 1g fein : 
: 1785 § i Functional description : : 
3 i7 4 : Each call to ‘PARSE_TEXT_RECORD’ returns the next item in ; 
; 17 5 : the recore (comma seperated List). The state of CONTEXT ; 
3 17 § : determines if more items are available in the record. The : 
: 1789 ‘ item count (1) does not consider the INDEX as a item in the ; 
; 19 8 } record. The first item in the record is the item after the ; 
3 ' as 3 
3; 179 40 : Record format: 3 
3; 179 341 ! INDEX = ITEM rye FA | TWO,..I1TEM_FOUR ; 
> 1794 : i See "DEVICES' module in SYSSLIGRARY:ERFLI8.TLB for ; 
3 12%? 7 more information. ; 
; 1737 rh For the first and second items returned convert them to dec. ; 
: 1799 rh) i If this is ITEM_ONE then save it as a device class. for : 
; 1800 8 ! each device class (ITEM_ONE) see if the device type (INDEX) 3 
3 ht hs is greater the is max allowable value. ; 
: 1808 384 i If this is ITEM_TWO the save it as the allowable version : 
§ Ht: 32¢ number for a loadable routine. : 
3 1806 354 2 | If this is ITEM_THREE then it is a two character device : 
: 1807 355 : name. Use INDEX to obtain the address in which this string ; 
$ + 4 $29 } should be copied to. ; 
> 1810 58 2 | If this is ITEM_FOUR then it is the name of the loadable image ; 
3; 1811 59 : that will interpurt this deviced error packet. This string : 
$ 186 rs } is copied to a table indexed by INDEX. : 
: 1814 36¢ i Calling sequence : 
: ible 364 $i Input t 
3 ! Input parameters 3 
: BI? seg 5 j input P : 
3; 1818 $8 : RECORD_DESC gists descriptor pointing at the record read : 
3; 1819 6 ! rom the text Library. 3 
: 1839 309 i Output t ; 
5 ! Output parameters 3 
i 182 $70 te : 
: +3 71 ! None 3 
3 1824 $56 ! 3 
: 18s? 3 ' Routine value ; 
3 1 § 74 ! 3 
3: 18 375 ! Worst error is returned. 3 
3; 1828 6 ! $ 
; 18 78 3 
: 1831 79 OWN 3 
3 1836 80 Context, 3 
: 13 + Dc_class: BYTE, : 
; 18 ‘ 58 Index, ; 
3; 1 4 Item_address: REF S$BBLOCKCdsc$k_d_bin], : 
; tH $2 Size, ; 
; 18 Status, 3 
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> 1845 9 Context = 0; ! Clear the context z 
3 7 $ 9 l= 1; ! Set the item count : 
3 3 94 ; 
3 3 8 95 0 3 
3 3 9 ey 3 
3 1930 2 CALL_FUNCTION ( Parse_text_record ( context, index, value_addr, size ) ); : 
; 1882 9 If .1 LEQ 2 then ! If first or second item ; 
3; 185 400 4 Begin ' then convert to Binary H 
> 1854 401 4 Status = LIBSCVT DIB ( .size, .Value_addr, size ); : 
3 1323 rt ? If NOT .status then Signal (erf_cvterr, 2,.size,value_addr) ; ; 
3 1889 404 4 If .1 EQL 1 then dc_class = .size; ! If first item save : 
; 1858 405 End; 3 
3; 1859 ret : 
3 +4 40 : : 
; 190) rts ; Determine which device class is being processed. : 
; 1808 410 Selectoneu .dc_class of ; 
3; 1864 411 Set : 
3; 1865 tig 3 
; 1866 41 CDC$_ZERO_CLASS): ; 
: 1867 414 4 Begin 3 
3; 1868 415 4 : 3 
3 524 2i$ 2 Make sure it's a valid device type for this class of devices. : 
; 1871 418 4 If .index GTR .max_misc_type then : 
3 1876 419 4 Signal (erf_badevtyp, 2, .index, .module_name_desc); : 
3; 187 420 4 3 
3; 1874 421 4 } : 
3; 1875 4 § 4 ' Determine which portion of the record is being processed and : 
; 1876 634 : : get the address of the location to store the data. : 
; 1878 425 4 Case .1 from 2 to 4 of ; 
3; 1879 238 4 et : 
: 1880 427 4 : : : 
3 rt 438 : Packet_processor_version [ .index ] = .size; ; 
3 1888 $30 ° Table_addr = Packet_processor_devicesL. index); . 
3; 1885 $38 4 Table_addr = Packet_processor_imageL.index, desc_one]; : 
3; 1886 433 4 COutrange): : 
3; 1887 434 4 ES; : 
3 1 435 End ; : 
3 1 4 § F 
; 1890 4 COC$_DISK): 3 
: 1891 438 4 Begin : 
| 3 439 4 : ; ; 
3 : o? rs 2 : Make sure it's a valid device type for this class of devices. : 
3; 1895 442 4 If .index GTR .max_disk_type then : 
. ‘4 445 4 Signal (erf_badevtyp, 2, .index, .Module_name_desc); ; 
> 189 444 4 ; 
: 1898 445 4 ! 3 
3; 1899 446 4 ! Determine which portion of the record is being processed and : 
: 1300 ret! ? get the address of the location to store the data. 
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: 130¢ 449 4 Case .1 from 2 to 4 of 
: 13 a3) } | 
; 1905 4 ¢ 4 Disk_version C .index J] = .size; 
3 1208 4 4 3): 
3 bt ? 2 ? 2 arte, seer = Disk_devicesl. index]; 
; 1909 4 5 4 Table. addr = Disk_imagel. index, desc_oned; 
; 1910 4 4 COutrangeJ: 
3; 1911 4 8 & ; 
te fe poe! 
: 1914 6) CDC$_TAPE): 
: 1915 462 4 Begin 
: 1ai8 4635 4 ' 
3; 191 464 4 ! Make sure it's a valid device type for this class of devices. 
: 1918 465 4 ! 
3; 1919 reg 4 If .index GTR .max_tape_type then 
; 1920 467 4 Signal (erf_badevtyp, 2, .index, .Module_name_desc); 
: 1921 468 4 
3; 19 ; 469 4 ! 
; 19 470 4 ! Determine which portion of the record is being processed and 
; 13 3 44 ? get the address of the location to store the data. 
5 1926 473 4 Case .1 from 2 to 4 of 
3: 1927 474 4 Set 
: 1928 475 4&4 33 
: + , 426 ? Tape_version C .index ] = .size; 
: 138) 8 ; Table_addr = tape_devices(. index]; 
; 1938 480 4 Table_addr = Tape_imageL.index, desc_one]; 
3 bd 481 4 COutrange): 
; 1935 482 4 ES; 
: 1936 48 End ; 
3; 1937 484 
3; 1938 485 COC$_SCOM): 
: 1320 te TT a 
: 1941 488 4 | Make sure it's a valid device type for this class of devices. 
: 1303 490 4 if .index GTR .max_scom_type 
3 1944 491 4 Then 
3 1945 492 4 Signal (erf_badevtyp, 2, .index, .Module_name_desc) ; | 
Be RE 
3 1948 495 4 ! Determine which portion of the record is being processed and 
3 1949 £38 4 ! get the address of the location to store the data. 
3; 1950 497 4 } 
3: 1951 re. é Case .1 from 2 to 4 of 
3 1926 4 & Set 
3: 195 500 4 J: 
3 1954 501 4 Scom_version[.index] = .size ; 
3 1955 : § 4 | 
3 1326 4 }: 
3; 195 504 4 Table_addr = scom_devicesl. index]; 
3; 1958 505 4 
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4): 
Table_addr = scom_imagel.index, desc_one); 
COutrange): 
TES ; 
End ; 


COCc$_LP): 
Begin 


Make sure it's a valid device type for this class of devices. 
it -index GTR .max_lp_type 


en 
Signal (erf_badevtyp, 2, .index, .Module_name_desc) ; 
] 


i Determine which portion of the record is oetne processed and 
get the address of the location to store the data. 


Case .1 from 2 to 4 of 
}: 
Lp_versionC. index] = .size ; 
(3): 
Table_addr = lp_devicesl.index]; 


}: 

Table_addr = lp_imageL.index, desc_one]; 
COutrange): 
TES ; 


End ; 


COCS_REALTIME): 
Begin 


Make sure it's a valid device type for this class of devices. 
if .index GTR -max_realtime_type 
en 
Signal (erf_badevtyp, 2, .index, .Module_name_desc) ; 


i Determine » en portion of the record is being processed and 
: get the address of the location to store the data. 


Case .1 from 2 to 4 of 


Realtime_versionl. index) = .size ; 


3): 
Table_addr = realtime_devicesl. index); 
(4): 


7 
ERF Errorlog Report Formatter 1b-se =1984 23:42:1 VAX-11 Bliss-32_ V4.0-74 Page 71 ER 
¥04-000 ee Va-8eb-1986 13:09:17 — DESKSVMGMASTERSCERF SRCSERF.832;1 2925) vO 
; 1 $ Table_addr = realtime_imagel.index, desc_one); 
3 i 5 4 COutrange): 
; 201 TES ; 
; : ? ; End ; 
: $6 ; & CDc$_BuS): 
; 20 4 Begin 
3 2024 71 & ' 
: ° 5 a 2 } Make sure it's a valid device type for this class of devices. 
8 ? te ? if - index GTR .max_bus_type 
; , 9 sry 2 Signal (erf_badevtyp, 2, .index, .Module_name_desc) ; 
: 2031 78 4 
3; 20 ¢ 28 4 ! Determine which portion of the record is being processed and 
; ; 280 ? get the address of the location to store the data. 
; 9 5 $8 ‘ Case .1 from 2 to 4 of 
: 20 aT 4 : 
3; 2038 585 4 Bus_version[.index] = .size ; 
; 2039 586 4 
; 2040 587 4 J: 
; 2041 588 4 Table_addr = bus_devicesLl.index); 
3 ek 589 4 
3 204 590 4 J: 
3 2044 591 4 Table_addr = bus_imageL.index, desc_one]; 
3 2045 235 4 
; bee 5935 4 COutrange): 
; 204 594 4 TES ; 
: ps8 a2 ; End ; 
; 2050 399 CDC$_WORKSTATION): 
3 Ba 338 ? Begin 
4 038 #44 ? ! Make sure it’s a valid device type for this class of devices. 
; 2055 o0e & If .index GTR .max_workstation_type then 
3 Bae 603 4 Signal (erf_badeévtyp, 2, .index, .Module_name_desc); 
; 2058 60s 
; 2059 O06 4 ! Determine which portion of the record is being processed and 
3 oe $3 ? ; get the address of the location to store the data. 
: 06¢ £09 4 Case .1 from 2 to 4 of 
: ei) 
: 2065 olg 6 Workstation_version C .index ] = .size; 
3 066 613 4 : 
3 94 oi3 ; . Table_addr = Workstation_devicesL. index); 
; 534 o18 4 Table_addr = Workstation_imagel.index, desc_one]; : 
3 0 617 4 COutrange): 
3 2071 $18 4 TES; 
; 2072 619 3 End ; 


Be Se Ge Se Ge Ge Ge Ge Se ee Se Ge Se Se Ge Se oe GH Se Ge 
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1h-Sep- 7 $3; 36:13 DISKSVMSMASTER: tt Ree OSaCSERF. B32;1 

é ? TES; 
6 § If .1 EQL 3 then CHSMOVE (.size, .value_addr, .table_addr ); 
é 5 If .1 EQL 4 then 

§ Begin 
6 4 Item_address = .table 
8 4 Item eT tengcnd: = .s 

4 iten. addressldsc$a_ Mecha = be val. size) 

° » noe E (.size, .value_addr, .item_ saisaest tects pointer)); 
6 ¢ : 
6 {2.3 #13 
634 
635 End 
ei 
i While .context EQL 1; 
639 Return true ; 
640 1 End; 


-PSECT SOWNS,NOEXE, PIC,2 


00058 CONTEXT:.BLKB 4 
0005C DC_CLASS: 
.BLKB 1 
00050 “BLKB 3 
90060 I: “BLKB 4 
0064 INDEX: -:BLKB 4 
00068 ITEM_ADDRESS 
-BLKB 4 
O06 SIZE: -BLKB 4 
0070 STATUS: .BLKB 4 
0074 TABLE_ADDR: 
-BLKB 4 
00078 TEMP: .BLKB 4 
0007C VALUE _ADDR: 
LKB 4 
00080 VERSION:.BLKB 4 


-PSECT SCODE,NOWRT, PIC,2 


O7FC 00000 PARSE _DEVICE pest RECORD: 
WORD Save R2,R3,R4,R5,R6,R7,RB.RI,RI0 


A 000000006 0 0000 MOVL #ERF_BADEVfYP. R10 
RSS 3 EE lls SISTA ac 
57 00000 0 0 9 001 MOVAB R 
67 Fe ot BG 00st move context 

o¢ A? i 34 1$ PUSHAB Site 
C A? OF 7 PUSHAB VALUE_ADDR 
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ERF Errorlog Report Formatt i$ “S X-11 Bliss-32 Vv P 73 
v04=000 Se ee ee 14 i-8ep- 1382 $3; $6: 3 aKSV nen STER: clk 7 °sac Sear. 32:10 88 ¢ 295 
04 A? i A PUSHAB INDEX ; 
FB A? OF PUSHAB CON TEXT ; 
00000000v 00 94 re " CALLS 4 SDARSE 6 TEXT_RECORD ; 
Be A RET : 
02 67 1 B 2$: CMPL #2 + 2399 
3 it BGTR § : 
Oc A? OF if PUSHAB SIZE + 2401 
se AF BB BRR UR YE amo : 
000000006 09 $3 i 48 CALLS . Lreseyt _DTB ; 
11 10 A f 6 20 BLBS nO: § e + 2402 
1¢ A? OF 00058 PUSHAB VALUE “ADDR : 
OC AZ? DD 0058 PUSHL SIZE ; 
ge DD f PUSHL a : 
ce aan aaa CATS a CIBSSTGNA 
F 0 Ra - dey 
FC OAT oc A? $8 O06E MOVB SIZE, DC_CLASS : 
50 FC a7 A 90073 4$: MOV ZBL ge RO : 3410 
51 04 HY 8 00079 MOVL IND EX + 2418 
51 000000006 00 08 00 FD 90070 CMP ZV #0, #6, oe _MISC_TYPE, R1 
$8 DD 90088 PUSHL  MODULE_NAME_DESC + 2419 
82 bb goose PUSH 2 
gf DD 0008: PUSHL R10 : 
69 04 FB 000 CALLS #4, pbIBSSIGNAL : 
02 02 67 CF 009 5$: CASEL > 2425 
001 0011 0008 00097 6$: WO 14-65: - : 
$5-8§ : 
7E 11 00090 BRB ; 
51 000000006 90 00 O09 7$ MOVL PACKET_PROCESSOR_VERSION, R1 ; 2428 
51 04 A bo OOA8 8$ MOVL PACKET PROCESSOR DEVICES, R1 ; 2430 
51 000000006 06 p0 GOKE 9$: MOVL PACKET_PROCESSOR_IMAGE, R1 2432 
01 ; 91 o08h 10$: CHB RO #1 : 2437 
51 04 ry 5 gee MOVL INDEX > 2642 
51 E4 AB 08 90 FD ate CHPZV #0, #6, Roa _DISK_TYPE, R1 ; 
H DD 000C PUSHL MODULE_NAME_DESC + 2643 
DD OOOCA PUSHL Y : 
2 od O00cC PUSHL : 
A dD 000¢ PUSHL ; 
9 4 FB 0000 CALLS nfo doe : 
02 03 67 CF 00003 11$:  CASEL + 2449 
001 00 0008 D7 12$: 


. WORD ei iy! 


7E 11 00000 BRB 


7 
-Sep- 242: AX-11 Bliss-32 V4.0-74 Page 74 
Spt edhtmen ose a pares VaaSep-1984 13:29:17 — DESKSVMGMASTERSCERE SRCSeRF.832;1 2% 254 
51 000000006 00 00 y 138: MOVL b K_VERSION, R1 ; 2452 
51 AB A 0 iB 14$: ROVL b K_DEVICES, R1 ; 2454 ; 
51 000000006 05 06 i 15$: ROVL DI SK_IMAGE, R1 : 2456 
02 ; 9 a 16$: CHPB RO, #2 : 2461 ; 
51 06 AP 06 O00F MOVL INDEX, R1 > 2466 ; 
51 EE AB 08 00 FD 1 CMP2V #9 #8, MAX_TAPE_TYPE, R1 : ; 
1 BGEG = «178 : ; 
; DD 001 PUSHL MODULE NAME _DESC + 2467 ; 
5 DD OO10A PUSHL R : : 
2 OD o1 C PUSHL # : : 
oh DD 001 PUSHL R10 : ; 
9 4 FB GO11 CALLS #4, | 1BSSIGNAL : ; 
02 2 67 CF 00113 178 CASEL #2, 8 ; 2473 3 
001 0011 0008 117 18$ . WORD bs-i8s,~ ; 
4$-18$ : ; 
11 0011D 19$: BRB 9$ : : 
51 000000006 06 b9 Or O$: MOVL TAPE _VERSION, R1 ; 2476 ; 
51 24 A 00 1 e 3: MOVL TAPE DEVICES, RI : 2478 ; 
51 000000006 00 DO OO1SE 948: -ROVL —‘TAPE_IMAGE, Rt ; 2480 ; 
oO BIE BB an i aats| 
12 0013A ss BNEQ § : : 
51 04 3 6 tt C MOVL INDEX, R1 ; 2490 ; 
51 ED a8 08 90 FD 9140 CMPLV #0, #8, MAX_SCOM_TYPE, R1 ; 
és DD a148 PUSHL  MODULE_NAME_DESC > 2492 ; 
1 DD OO14A PUSHL 1 ; : 
2 DD 0014C PUSHL #2 3 
69 be Pe Sig CALLS he IBSSIGNAL : : 
0 0¢ 67 CF 013 g7$:CASEL Cat: ; 2498 ; 
001 001 0008 0157 28$: § .WORD bs- i ; 
4$-283 : ; 
42 11 00150 298: BRB 9$ : F 
51 000000006 00 00 13) 0$: MOVL SCOM_VERSION, R1 ; 2501 
51 18 ‘ 06 188 ‘3: ROVL SCOM_DEVICES, R1 ; 2504 
51 000000006 09 96 if A$: MOVL —SCOM_IMAGE. RI ; 2507 
43 BF 91 00177 36$:  CMPB RO, #67 : 2513 
51 04 i 6 iB ROVE tos R1 : 2518 
51 000000006 00 08 00 FD } CMPZV #0, #8, MAX_LP_TYPE, R1 
; DD 0018C PUSHL MODULE NAME DESC ; 2520 
i DD 1 PUSHE ; : 
A dD 00192 PUSHL ‘fo F 


7 
-Sep- 142: AX-11 Bliss-32 V4.0-74 Page 75 
4-000 a ee en 13-50-1984 $3:33:15 Wed Ghlsteaccene sacSerr.es2;1 2% 255 
4 FB 001 CALLS #4, LIBSSIGNAL ; ; 
03 3 ef cP a0137 7s: ASE Tage 9506 i 
00 00 0008 198 38$: IRD iff: i: ; 
448-388" : ; 
F 11 1A 39$: BRB 49$ : : 
51 000000006 do 00 1A3 40$: MOVE bP VERSION, R1 + 2529 ; 
F 11 OO1AA 41$: BRB 1$ : ; 
51 oc as 00 1A gs: OVL P DEVICES, R1 ; 2532 
51 000000006 90 0 0018 44$:  MOVL P_IMAGE, R1 ; 2535 : 
F i 189 45$: BRB 5$ : ; 
60 28F 0 91 001BB 46$:  CMPB RO, #96 ; 2541 : 
51 oo AF O8 Soles BOVE «INDEX, RI + 2546 ; 
51 EC AB 08 00 FD C5 CMP ZV #0, #8, MAX_REALTIME_TYPE, R1 ; ; 
$8 DD 001CD PUSHL  MODULE_NAME_DESC > 2548 ; 
1 DD OOI1CE PUSHL R17 : 
cane ; : 
69 a PB OOtDS CALLS #4, L IBSSIGNAL : , : 
02 02 67 CF 00108 47$:  — CASEL #2, #2 ; 2554 ; 
001 0011 0008 O1DC 48$: WORD bs-4 $.- : ; 
4$-488" ; : 
3F 11 ore? 49$: BRB 9$ : ; 
51 000000006 00 DO 00164 208: MOVL §REALTIME_VERSION, R1 ; 2557 ; 
F 11 OOTEB 1$: BRB ase : 
51 0c Ag 00 QiED 3: MOVL REALTIME_DEVICES, R1 32 
51 000000006 00 00 OFS 4$: MOVL REALTIME. IMAGE, R1 > 2563 
: 11 OO1FA 55$: BRB 65$ en 
80 8F 30 9 30 és: CMP RO, #128 ; 256 
50 046 =A 8 VL _—sINDEX, RO ; 2574 
50 EO AB 08 0 FD 0 CMP2vV #0, #8, MAX_BUS_TYPE, RO F 
C BGEQ r™ 
DD 0 PUSHL  MODULE_NAME_DESC : 2 
$ DD 0021 PUSHL R 
g DD 0021 PUSHL : 
A DD 00214 PUSHL R10 ; 
69 04 FB 1 CALLS #4, 1BSS1GNAL : 
02 09 67 CF 0021 578: CASEL ao, ; 2582 
001 00 0008 10 58$:  .WORD or Bf: 
$-58$" ; 
72 11 59$: BRB 5$ ; 
51 000000006 6 00 608: MOVL BUS VERSION, RI ; 2585 
51 98 A 00 gs: MOVL BUS DEVICES, R1 ; 2588 
51 000000006 06 et MOVL BUS _IMAGE. RI ; 2591 
46 —oBF s 1 : é$: CPB RO, #70 ; 2597 
50 04 A? 6 43 MOVL INDEX, RO > 2602 
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747 bytes, Routine Base: $CODE + 0E50 


; Routine Size: 
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ERF Errorlog Report Formatter 1S-se $1984 23:42:14 VAX-11 Bliss-32 V4.0-74 Page 77 
V04-000 ee 12=866-1984 3:39:17 DI SKSVMSMASTER-CERE SRCTERF .832;1 9° (23) 
3 $3? eh 1 Rous tne PARSE _MODULE_NAMES = : 
; 94 $08 3 s : 
3 $28 4} } Functional description : 
: 2100 O66 : This routine builds a descriptor table, which contains the names : 
; 133 fi } of library modules to be processed. ; 
: 198 es ; Calling sequence ; 
; 105 $31 Input parameters ; 
; 199 £36 i None. ; 
; 2108 654 : ; 
: 1% 02? Output parameters ’ 
: 2111 gay 5 i 3 
3 sil¢ $28 Routine value : 
; sie 660 2! 
3 2115 661 leowe : 
3; 211 66 Local : 
; 2118 664 Desc: REF $bblock fi. : 
3 $18 237 he a initial (0), : 
; ndex, : 
; 2131 ret Value_addr, : 
; ze; ° 
5 $158 669 : 
i 2126 670 2 Do ; 
; 2125 671 Begin : 
3 $1s6 sore : 
: $i , 3674 Item_count = .item_count + 1; : 
3 2129 675 If .item_count GIR .table_length then ; 
: $1 , sore (signal (erf_badevtyp, 2, .item_count, .Module_name_desc); Return true); ‘ 
: 31 § of Call_function (Parse_text_record ( context, index, value_addr, size) ); : 
; A ¢ ? Desc = desc_table_address([.item_count ,desc_one]; : 
; 21 ret DescCdsc$w_length) = .size; : 
: 2137 6 Desc dscep_class, = dsc$k_class_d; : 
: ¢1 684 Descldsc$b_dtype] = dsc$k_d ype_t: eins ae Pe ” : 
3 al 685 ! SIZE could be zero if the Lib. module had "',,"’ or *’,<EOL> : 
3; 2140 ! This is could be a_problem. : 
: 133 i Desc(dsc$a_pointer] = get_vm(.size); : 
: 148 9 CHSMOVE (.descCdsc$w_length], .value_addr, .desc(dsc$a_pointer]); : 
: 2145 691 End : 
: 196 O3s While .context EQL 1; : 
: 5168 Oe Return true; | : 
” oO | 3 

| 

| 

J 


v04-000 


50 60 a7 
000000006 
00000000v 

02 
000000006 

04 

04 B86 04 


; Routine Size: 120 bytes, 


; 2150 2696 1 


Routine Base: 


Errorlog Report Formatter 


4 00000000° 98 
E 1 

oc ag 

5 e) 

Bera: 

i 

34 5 

000000006 : 

00 4 

42 

5E 

08 AE 

10 AE 

18 AE 

0 98 

0 0 

1 DO OA? 

2 67 

6 6140 

66 6E 

A6 O20E 8F 

6E 

00 1 

A6 0 

BE 66 

01 Oc AE 

98 

50 01 


13-5 


14-$ 


o9ooOo 
#*rom 


e 


C 
Dd F 
D0 011 
+4 14 
1A 
DD 1¢ 
DD Ff 
DD 00021 
Hiss 
i 0 $ 
DD 000 
9F 00034 
9F 00037 
9F QOO3A 
Fe 0030 
E9 00044 
DO 00047 
oO 0048 
E 0004 
BO 0005 
BO 0005 
DD 00058 
4 0050 
B 0064 
st His 
Be 
DO 00074 
04 00077 


SCODE + 1138 


2$: 


rw 
nme 


a 


VAX-11 Bliss-32_V 
Disk SVMSMASTER: tte 7 SRCSERF. B32;1 
ES: 
Save R2, R3, “Rh R5S,R6,R7 
TEM. COUNT. R? 
ee “Sp 
CONTEXT 
ITEM_COUNT 
ITEM” COUNT 
40, 38, NNSLES _LENGTH, RO 
MODULE NAME _DESC 
S 
#ERF_BADEVTYP 
. CIBSSIGNA 


SP 
VALUE _ADDR 
INDEX 


CONTEXT 

#4, PARSE _TEXT_RECORD 
STATUS, 
DESC TABLE 5 ~ABDRESS. R1 


ALUE_ADDR, @4(DESC) 


2=-O-DWBVv2u-- 
—RO0T0 Ul wD - 
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(23) 


2641 


367 
67 
675 


2676 


2678 


; 2680 


2682 
yer 

687 
2689 
2692 


2694 
2695 


»@ 
nm 


Errorlog Report Formatter 15-sep-1984 $3:36:16 Vv 1 Bliss 


AX-1 ss-3 
4-Sep-1 DISKSVMSMASTER 


3 


04 
3; 21 ¢ 697 1 Routine PARSE_TEXT_RECORD ( context, index, value_addr, size ) = 
3; 21 238 BEGIN 
3; 2154 § '+ 
3 ; 5 oe Functional description 
: 21 5 7 ; i This routine parses a record that was previously read from 
: 21 3 7 ' the text library. Each call to this routine returns the next 
3; 21 704 ! item in the record(comma seperated List). CONTEXT is set after 
3; 2160 705 : returning all items in the list. The value of INDEX, in binary 
: 2161 7 ; is constant for all items in a record. VALUE_ADDR is the starting 
: 196 70 : address of the next item. Its size is returned in SIZE. ALl records 
: 216 pe : processed by this routine are expected to have 4 items after there 
3 2164 709 ! index. See DEVICES’ module in SYSSLIBRARY:ERFLI8.TLB for more 
: 19? at information. 
: 2167 ze i 
3; 2168 71 ' Calling sequence 
: 199 714 ! 
3 109 ne Input parameters 
: ire a5 i Context : Should always be zero in first call to this routine 
3: 217 At ! on return from this routine it is set to one to 
: \r ay, specify that there more values in the List. 
: 2176 721 2! 
: ivr 4 § Output parameters 
; +4 3 Index : Binary value of the number to the left of the equal 
3 ; sign. 
3; 2181 7 ! 
3 186 i ; } Value_addr : Starting address of the string to be returned. 
; 3184 , 3 ; Size : The Length of the field pointed to by VALUE_ADDR 
: 2186 731 i Context : Binary 1 to indicate more values in the comma 
: 2187 7 § ! separated list. 
3 + 4 : : Binary 0 to indicate no more in the List. 
> 2190 735 2 | 
3 Hb $ } Routine value 
: 198 t38 Worst error is returned. 
: 2195 740 2 in--- 
: 21 741 
3 199 74 LITERAL 
: Hh 74 Max_deliminters = 3, 
: Hh 4 be: TAB = 9; 
: 2201 7% OWN 
3 4 74 Context_length, 
3; 220 74 Context_pointer, 
3: 2204 74 Delim_position: INITIAL (0), 
3 2205 750 Length_to_move, 
: 751 Offset, 
: 7 ; Status, 
; 2208 7 Temp_ptr; 


- SRCJERF .B32;1 


] 


ER 


ghee g. aarp A pate: if: £91984 43:39:13 DER EUwBmASTeRscERE sRcSeRF.e32;1 "2% 289 


3 8 


8 
Errorlog Report Formatter 18-5 =1984 23:42:14 VAX-11 Bliss-32_V Pa 1 
x 12=$ee-138t §3:36:15 — WNSiwBhaStenscené secderr.032;1 °%° 28) 


| 

: 2318 756 3 | 

3 HF f : If context equals 1 then compress the record and get the index. | 

: 2015 a 

3 1 76 If ..context EQL 0 then 

3; 221 76 Begin 

3 18 76 

; 221 76 : | 

; ree : Setup pointer to start of record and record Length. 

; § 108 heonent, ointer = CHSPTR ( yo d_desc CéscSe_ pointer] ); 

; ? 44 Context_length = .Record desc dsc$Sw_length 

: 2225 769 

; $ aa Search the record for a '!'. 

; ; ak Delim_position = CHSFIND_CH ( .context_length, .context_pointer, %c'!" ); 

; 774 

3 1 775 i If the '!" is in the first character position then this is a comment, 

; § 76 i $0 return to get another record. If it is not in the first position 

3 ve ; then reset the record length to the '!" position. 

: 2235 779 if .detin _position NEQ 0 then 

3 780 4 Be egin 

3 781 4 Offset = CHSDIFF ( ote -position -context_pointer) 

3 7 ¢ 4 If .Offset LEQ 3 t ' if "l' is Tn the first three positions 

: 7 4 Return Gate ! get “the next reco 

3; 2240 7 4 else ! else adjust the content Length 

: re f 5 4 Cendant, engen = .Offset - 1; ! (Record Length ) 

> 226 78 . 

3 ve res Offset = 0; ! reset to zero for counting characters. 

> 226 790 ! 

3 rt 4 iad ; Search the record for a ' '. If a blank then compress record. 

3 2249 79 Delim_position = 1; 

3 29 a | i -Delim res NEQ 0 do 

: 225 796 4 nef osition = CHSEIND . o ‘. context_length,.context_pointer,2C* °); 

3; 225 797 & -Delim aposit on co 

3: 2254 re 4 Delim_position = HS IND th tH (.context_length,.context_pointer, TAB); 

; 3 4 44 4 t Delia position NEO | 

: 4 801 ‘seg, = .offset + 1; ' Count number of characters removed 

3; 2258 80 Temp eft = CHEDIFF(. delim_ osition+l, content pointer); 

3; 2259 80 Lengt to_move = .context_length - .temp ptr | 

: 2260 04 emp_ptr = CHSCOPY (.length_to_move, jdet m position *%, Oe", 

3 2261 5 -length_fto_move + 1, .deTim_position); 

3 $6 4 End; 

3: 226 0 End; 

3: 2264 08 

3; 2265 09 Context_length = .context_length - .offset; 

3; 2266 10 
| 
| 
| 
| 
| 
j 
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D 
' 
Search the record for ‘='. If an equal sign is found get index and value. 


i Get the value addr, the size of the value field and 
if no commas are found set context to 0. 


1} 
BOR 
a 15 Delim apg ition = CHSFIND_ _. {. context_length,.context_pointer,%C'="); 
ie, 1 If del im position NEQ O°t 
e 
75 \8 ites = LIBSCVT_DTB ( (.delim M gg tt ew = .context_pointer), ! Calculate index field length 
76 i -¢o gentens, pointer, ! Start of index string 
8 1 If NOT .status then signal (erf scyterr. 2. 
7 § elim_position = .context_pointer),context -pointer) : 
Z fontext.. Length = .context_léngth - (.delim_position - context _pointer); 
nag; 
5 End; 
Temp_ptr = 0; ' Clear pointer 
0 
31 
i 


VLSSBISARAVSS 


-Value_addr = .delim_position + 1; 


Temp_ptr = CHSFIND_CH (.context_length-1, .delim_position + 1, %C'."); 
if, temp. ptr EQL O' then 


egin 

If ..context EQL 1 then 
' «Size = .context_length - 1 

else 
Size = .context_length - ( CHSDIFF (.delim_position, .context_pointer) ); 
Context = 0; 

End 

“ 


ne) Po = CHSDIFF (.temp_ptr, .delim_position); 
Context_length = .context length -",.8ize; 
Size =..size - 1; 
Delim position = .temp_ ptr; 
gtontéat = 1; 

ng; 


SeSSSeoNseseseare 


Return true ; 
nd ; 
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-PSECT S$CODE,NOWRT, PIC,2 
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; 2314 t 1 Rout ine INIT_COMMONS = é 
3 \? Begin : 
; 7 : i++ : 
; 19 1 Functional Description: : 
: 2321 ra i This routine initializes some of the commons in : 
: ¢ re ERFSHR (qiocommon, opcodes, modes). : 
; : 6 Calling Sequence: ; 
; $ ys Init commons () : 
; 8 4 0 i Input parameters 3 
3 y 71 ‘ 3 
; : ers } None : 
; § are Output parameters : 
; ¢ B76 None : 
; 878 5 in : 
3 879 
; 8 880 LOCAL : 
3 9 881 Array_addr, : 
; 0 HY Array_size, : 
: 1 88 Status, 3 
3 § 884 Xfer_addr ; : 
; 885 ; 
BBE | 
: ; 6 888 i Get the image name and attempt to Load it. : 
3; 2347 889 ! Determine if a loading error occurred and signal it : 
; 344 } if necessary. : 
; 2350 89 Status = Map_image ( AD ("SYSSSYSTEM:ERFINICOM.EXE'), xfer_addr) ; : 
3 23 S37 If NOT .status then return false ; : 
: 5388 835 ; : 
3 2354 96 ! Execute the image. Then set the flag indicateing that the commons have been : 
: 32 +44 ! initialized. : 
; 33 99 2 EXEC_IMAGE (xfer_addr) ; 3 
: 39 33) Inited_commons = true ; : 
; 1 90 Return true ; 3 
; 2 904 End ; ! Routine : 


-PSECT SPLIT.NOWRT,NOEXE, PIC,2 
6 P.ABV: .ASCII \SYSSSYSTEM:ERFINICOM.EXE\ : 
P.ABU: .LONG 24 : 


49 46 52 45 3A 4D 45 54 53 59 53 26 3 
45 58 45 2€ 4D 4F 4 
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00000000" 001F0 -ADDRESS P.ABV 


«PSECT SCODE,NOWRT, PIC,2 
0000 00000 INIT_COMMONS: 
ORD 


oW Save nothing 
5E 4 C2 0000 SUBL2 #4, SP 
D 0000 PUSHL a 
00000000' F 00007 PUSHAB 
000000006 00 FB 0D CALLS af MAGE 
4 3 14 BLBC Starl 
. DD 00017 PUSHL 
000000006 00 F 19 CALLS i. EXEC_IMAGE 
00000000' 9 1D 9 MOVL ay INITED_ COMMONS 
1 DO 00 MOVL ‘ 
04 OO02A RET 
50 b4 0028 1$ CLRL = RO 
4 00020 RET 


; Routine Size: 46 bytes, Routine Base: S$CODE + 1300 


; 2363 2905 1 


Pete Se Ge Se Be Ge Se Ge Ge Ge Ge Be 


=32 V4. 7 
ACCERE SRCSERF.032;1 29° a8) ao 


unctional description 


This corre checks the error Log, packet aere 27s 


7 to eee the type is valid for the CPU type 1 was 
f logged on. 

f Calling sequence 

f Validate_packet() 

f Input parameters 


Output parameters 


If valid_cpu, valid_class, valid_type or valid_entry are false 
then return fal lse. 


MEWN —O OONOUS Wn OOM 


56 Routine value 

4 Worst error is returned. 

$e == = 

i ! THERE SHOULD BE A MAX_ENTRY_TYPE. 

94 GLOBAL 

95 Processor type: LONG, 

38 Device_class: BYTE, 

144 Device_type: BYTE ; 

398 LOCAL 
400 Table_size: WORD INITIAL (0), 
401 Max_value: BYT 

40 Min_range: REF VectoRt, eit SE 
40 Max_range: REF VECTOR 

404 Begin_bit_pos: LONG INITIAL (enhe 
405 Version: REF VECTORC,W 

406 Field_size: CONG. FAITIACe Che 


8 
vO4-000 ufo nieeageete heen HESepct9Rs GHS9eT$  WMdTABALEHEH2 et OG 


; 24 4, ! 

: : $c ; Set default state for valid flags 

: 241 4 Syecom{sye$b_Valid_CPU) = true; 

: e} 4 SyecomLsye$b_Valid_class] = true; 

> 241 9 

3 2415 955 ' Obtain processor type. Determine if the processor type in the SID has 
; 7i$ 4 § ; been set up. (Early VAX systems did not have the processor type set). 
3 ai 228 Processor_type = LIBSEXTZV ( Begin_bit_pos, Field_size, embCemb$l_hd_sid] ); 
; ? : ed If .processor_type EQLU 255 then processor_type = 1; 

> 26 ; 364 

: 24 ‘ 

3: 24246 4 : Pepending on processor type, determine which set of tables to use. 

: rs 5 965 } These tables specify invalid entry type ranges for specific cpu's. 

5 26 3 969 ince loop_count from 1 to_.max_cpu_types do 

$ ? : 4 If_.processor_type_table[.loop_count] EQL .Processor_type then 

3 egin 

3: 26 390 Ain.renge = .Min_range_table_addr{.loop_count]; 

3; 2431 971 Max range = .Max_range_table_addr(.loop_count]; 

3 24 ; 97 Table_size = .Min_max_fable_Sizes[.loop_count); 

3: 246 97 Exitloop; 

3 63s are End; 

> 26 976 2 If .table_size EQL 0 then syecom{sye$b_Valid_CPU] = False; 


4 p ee 
CSERF.832:1 : 

| 

} 
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: ¢ 38 i E i i 
: $078 3f8 nsure processing a device type entry. 
; ree 444 it o DEVICE_TYPE_ENTRY () 
BEE BRE feat 
+ 26445 984 Determine the type of device entry and set up device class 
3 rey | 2 5 and type from the appropriate fields in the EMB buffer. 
: <t8 2 ? Selectoneu -embCemb$w_hd_entry] of 
: 2450 389 EMBSC _DE, EMBSC_DT, EMBSC_DA): 
: 2451 990 4 Begin 
3 126 991 4 Device_class = bis to te dv class] ; 
3 245 336 4 Device. “type = .embLemb$b_dv_type] ; 
Be BY “ 
; 496 995 CEMBSC cain): 
; 245 996 4 
: 2458 997 4 Bevice class = .embCemb$b_lm class] ; 
3: 2459 998 4 Device_ —type = -embLemb$b_ Tm_typel ; 
ie Gey wg 
: 464 001 CEMBSC_SP3: 
3; 246 002 4 Be egin 
3 2464 003 4 Device_class = .embLemb$b_sp class] ; 
3 2465 004 4 Device “type = .embLemb$b_sp_typel] ; 
3: 2466 005 End ; 
3 2467 006 
3; 2668 007 CEMBSK_LOGMSCP): 
: 2469 008 4 egin 
; veh st 2 thee CHSEQL (2,emb(driver_type],2,CHSPTR(uplit("DISK"))) 
: 47 3011 5 "Begin 
: 247 Og 5 Device_class = DC$_DISK ; 

474 $01 5 Device_type = 1; 

tye OI wind: 
+ 2477 016 4 If CHSEQL (2,embCdriver_type].2,CHSPTR(uplit("TAPE"))) 
: 2478 017 4 Then 
3 2679 018 5 “Begin 
: 2480 019 5 Device_class = DCS_TAPE ; 
3: 2481 s 0 5 Device_ type = 1; 
3 24 1 4 End ; 
Sa BR * 
; 2485 024 Tes ; 
° 025 
: 26 § $ ' Determine the cevtes class and set up the maximum number 
3: 2489 028 ! of device types 
5 ves 3 4 f class is” out of range then VALID_class = False 
: 269 031 Selectoneu .device_class of 
3; 249 4 ; Set 
3: 2494 


smivesesvonencnprantionieiteneat 4 
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: 2495 4 3 COCS_DISK): ! Disk 

3 t38 5 4 BEGIN 

3; 249 § & Max_value = .max_disk_type; 

> 2498 4 Version = .disk_version; 

3; 2499 S 3 

; 2500 

: 8) 40 COC$_TAPE): ! Tape 

; § 41 4 BEGIN 

; 250 rk: 4 Max_value = -max_tape.type: 

; 2504 045 4 Version = .tape_version; 

; 2505 Bee ; END; 

; 0 Beg COC$_SCOM): ! Scom 

; 2508 047 4 BEGIN 

; 2509 048 4 Max_value = .max_scom_type; 

; 2510 049 4 Version = .scom_version; 

: 2511 050 END; 

: 21§ 051 

; 251 B26 COCS$_LP): ! Printers 

; 2514 053 4 BEGIN 

3; 2515 Bee 6 Max_value = .max_lp_type; 

3 218 55 4 Version = .lp_version; 

; 251 056 END; 

; 2518 057 

; 2519 058 COCS_REALTIMEJ: ! Realtime 

3 2520 059 4 BEGIN 

3 2s) 060 4 Max_value = .max_realtime_type; 

3; 25 ¢ 061 4 VerSion = .realtime_version; 

; 25 06 ND; 

3 2524 06 

3 2525 064 CDC$_BUS): ! Buses 

3 2 $ 065 4 BEGIN 

3 25 6 4 Max_value = .max_bus_type; 

3; 2528 067 4 Version = .bus_version; 

; 2529 068 END; 

: 2530 069 

3; 2531 070 COC$_WORKSTATION): ! Workstations 

: 25 ¢ 071 4 BEGIN 

3 20 Ors 4 Max_value = .max_workstation_type; 

: 2534 073 4 Version = .workstation_version; 

3 2535 074 ND; 

3 25 075 

3; 2537 076 COTHERWISE): 

; 238 Bre 4 Begin 

3; 2539 78 4 Max_value = 0; 

3: 2540 079 4 Version = 0; 

3 2541 080 4 Syecom(sye$b_Valid_class] = false; 

; 3e§ 081 nd; 

3: 254 0 § 

3: 2544 TES; 

3 2545 4 

; 74) #4 : 

3: 254 0 ! If device type is less then 1 or greater then max 

3 368 O88 : value or the version number is zero, then set flags false. | 

: 335 6 9 If ( .device_type LSSU 1 ) OR | 

3; 2551 090 ( .device_type GTRU .max_value ) OR | 
| 
| 
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-PSECT S$PLIT,NOWRT,NOEXE, PIC,2 
oS a2 Sk NEE RANE SEIT HRA | 
-PSECT $GLOBAL$,NOEXE, PIC,2 
Q00CO PROCESSOR _TYPE:: 


~BLKB 
000C4 DEVICE_CLASS:: 


; ¢ 4! 4 ( .version EQLU 0 ) 
; en 
; : it gy azecomtsvese valid typed = false | 
: $ bee if -version(.device_type] EQLU 0 
3 en 
3 8 8 Syecom(sye$b_Valid_type] = false 
$ 222 98 else 
; 2560 099 Syecom(sye$b_Valid_type] = true; 
; 2561 139 End 
; $6 101 Else 
; o7 196 Syecom(sye$b_valid_type] = true ; 
2. ee 
3; 2567 106 ! Ensure a valid cpu type was found. Otherwise don't attempt 
; 208 44 : to do entry type verification. 
: 256 109 If .syecom(sye$b_valid_cpul 
3 2571 110 Then 
27¢ 111 Begin 
3; 257 \N¢ Incr_I from 1 to .table_size do 
; 2574 113° 4 Begin 
3 2575 114 4 
; 276 1i5 4 If ( .embCemb$w_hd_entry]_ GEQU .min_rangel.1]_) AND 
3 257 116 5 ( .embCemb$w_hd_entry] LEQU .max_rangel.1] ) 
; 2578 117 4 n 
3; 2579 118 5 Begin 
; 2580 119 5 Syecom(sye$b_Valid_entry] = false ; 
; 2581 120 5 Exitloop; 
: one 121 5 End 
; 258 1 ; 4 else 
3 2584 1 4 Syecom(sye$b_Valid_entry] = true ; 
3 2585 124 3 End; 
; 2586 125 End ; 
3; 2587 126 
3; 2588 127 If NOT .syecom({sye$b_valid_cpu] OR 
3; 2589 128 NOT .syecom(sye$b_valid_c ans OR 
3: 2590 129 NOT .syecoml(sye$b_valid_type] OR 
3; 2591 130 NOT .syecomlsye$b_valid_entry] 
3 206 131 Then return false; 
3 259 1 ¢ 
3 2594 1 Return true; 
: 2595 134 1 3 
} 


9 
ERF Errorlog Report Formatter ib-so 1984 42:14 VA P 
¥04=000 ’ 1argee 71882 F3i35:15 Ht age 565 


liss- Phat 
MASTER: CERF .SRCJERF .832;1 


«PSECT SCODE,NOWRT, PIC,2 


01FC 00000 .ENTRY VALIDATE_PACKET, Save R2,R3,R4,R5,R6,R7,R8 ; 29 
58 000000006 00 9E 0008 MOVAB EMB+4, ; vines 
000000006 00 9E 0000 MOVAB SYECOM+25, R7 : 
56 00000000' 9 oF 9010 MOVAB ODEVICE_CLASS, R6 ; 
B4 0001 CLRW TABLE_SIZE + 2907 
18 0D 00019 PUSHL : 
0 DD 00018 PUSHL # : 
67 0101 8F B80 0001D OVW #257, SYECOM+25 + 2952 
FC AB 9F 000 : PUSHAB EMB : 2958 
04 AE OF 00 PUSHAB FIELD_SIZE : 
0c AE 9F 00028 PUSHAB BEGIN-BIT POS : 
000000006 00 9 FB 000 : CALLS #3, LIBSERTZV F 
FC A6 0 pd 000 MOVL RO, PROCESSOR_TYPE 3 
OOOOOOFF BF FC AG ODT 90056 CMPL § PROCESSOR_TYPE, #255 : 2960 
04 if 003€ BNEQ ~=s«s1$. : 
a. 01 p 00040 MOVL #1, PROCESSOR_TYPE : 
5 86 46 C 00044 1$ MOVZWL MAX_CPU_TYPES, R3 3: 2967 
5 D4 Beode CLRL ,Q0P_ NT 3; 2968 
29 11 O004A BRB ‘ ; 
51 AC A6 p0 0004C 2$: OVL PROCESSOR_TYPE_TABLE, R1 F 
6140 3F ORO PUSHAW (R1)CLOOP- COUNT) 3 
FC AG 9E 10 00 ED 0005 CMPZV #0, #16, S(SP)+, PROCESSOR_TYPE : 
1A 12 00059 BNEQ 3$ : 
51 AO Ab DO 00058 MOVL § MIN_RANGE_TABLE_ADDR, R1 : 2970 
55 6140 DO 0005F MOVL (RIJCLOOP-COUNTJ, MIN_RANGE 3 
51 8C A6 DO 84 MOVL MAX_RANGE_TABLE_ADDR, R1 3: 2971 
54 6140 D0 00067 MOVL (RISCLOOP- COUNT], MAX_RANGE é 
51 9C Ab DO 00068 MOVL MIN _MAX_TABLE Sizes, 1 : 2972 
52 6140 BO 0006F MOVW  (RISCLOOP_COUNT), TABLE_SIZE : 
04 11 0073 BRB 4$ + 2969 
D3 59 23 F3 00075 3$: AOBLEQ R3, LOOP_COUNT, 2$ : 2968 
5 36 0079 4$: MOVZ2WL TABLE_SIZE, R3 : 2976 
03 7 gore BNEQ  5$ : 
01 A? 94 OOO7E CLRB = SYECOM+26 : 
000000006 00 00 FB 0081 5$ CALLS #0, DEVICE_TYPE_ENTRY : 2980 
03 50 09 BLBS RO 6$ : 
oof e 1 BRW 22$ ; 
50 $ C OO8E 6$ MOVZWL EMB+4, RO : 2987 
01 0 81 99 CMPW )SORO, #f : 2989 
OF 3 94 BEQL 7$ 3 
0060 8F B1 00096 CMPW = saRO, #96 : 
07 13 00098 BEQL 46 7$ F 
0062 8F 0 a H CMPW RO, #98 3 
06 2 A BNEQ 8$ : 
66 18 «OA 8 AG 7S: MOVW  EMB+28, DEVICE_CLASS : 2991 
3 1 0008 BRB les : 2987 
0064 8F 8 AA 8$: CMPW = sO, -#100 : 2995 
‘ AF BEQL «6=s«O9S ; 
0063 8F 0 B1 00081 CMPW 3=SsaRO,-#99 : 3001 


f 9 
ERF Errorlog Report Formatter 15-Sep-1984 62:14 VAX-11 Bliss-32 V4.0-74 Pa 3 
¥04=000 dems Vareeah SRS 3:35:13 Pee eAlSteRe eRe se Seer.es2-1 Pec s8i 
06 1 Bs BNEQ 10$ F 
be oc A e BB 9S: MOVW ENB+16, DEVICE_CLASS + 3003 
BC BRB 1 : 2387 
0065 8F if f 10$ CMP R { #101 + 3007 
AB 3C 000C MOVZWL EMB+18, RO + 3009 
38 00000088" 8] (9 CMPW Ss. ABW, RO : 
D BNEQ 11$ : 
66 9101 -F 8B D MOVW #257, DEVICE_CLASS : 3012 
00000000' Q é : 11$: CMP P BK, RO : 3016 
$6 0102 =F 66 0 e) MOVW 38, DEVICE_CLASS + 3019 
6 A QOOES 12$:  MOVZBL DEVICE_CLASS> RO + 3031 
01 91 O0E8 CMPB ORO, #1 + 3034 
0D 42 0 EB BNEQ 13$ : 
52 88 A 9 OED MOVB MAX_DISK_TYPE, MAX_VALUE g 3036 
51 000000006 9 D0 OOF MOVL DISR_VERSION, VERSTON : 3037 
11 000F8 BRB 20$ + 3031 
02 50 91 QOOOFA 13$:  CMPB RO, #2 + 3040 
0D 42 OOFD BNEQ 14$ : 
52 92 A6 90 OOODFF MOVB §/MAX_TAPE_TYPE, MAX_VALUE F 3042 
51 000000006 09 00 0103 MOVL TAPE_VERSION, VERSION : 304; 
20 50 91 bole 14$:  CMPB RO, #32 : 3046 
0D ff 0010F BNEQ ss 1 : 
52 91 A6 90 00111 MOVB §_MAX_SCOM_TYPE, MAX_VALUE + 3048 
51 000000006 00 DO 00119 MOVL COM_VERSION, VERSION : 3049 
11 0011C¢ BRB : 3031 
43 SF 50 91 OO11E 15$:  CMPB RO, #67 : 3052 
10 12 00122 BNEQ 16$ : 
52 000000006 00 90 00124 MOVB MAX_LP_TYPE, MAX_VALUE + 3054 
51 000000006 00 00 00128 MOVL P_VERSION, VERSION : 3055 
F 11 00132 BRB 0$ : 3031 
60 8F 50 91 00134 16%:  CMPB RO, #96 : 3058 
0D 42 01 8 BNEQ 178 ; 
52 90 A6 90 0013A MOVB $ MAX_REALTIME_TYPE, MAX_VALUE : 3060 
51 000000006 90 00 tthe MOVL REALTIME VERSION, VERSION : 3061 
80 8F 6 9100147 17%:  CMPB RO #128 : Hea 
00 42 0148 BNEQ 18$ : 
52 84 Ab 90 00140 MOVB § MAX_BUS_TYPE, MAX_VALUE + 3066 
51 000000006 99 06 0191 MOVL S"VERSION, VERSION : 3067 
46 BF 0 9 O19, 18$: cMPB RO #70 : 3070 
52 93 AG $5 0180 MOVB § MAX_WORKSTATION_TYPE, MAX VALUE : 072 
51 000000006 00 ies MOVL WORRSTATION_VERSION, VERSION ; O73 
$ 94 00160 19$: CLRB  MAX_VALUE : 3078 
1 p4 16 CLRL CO : 3079 
67 94 00171 CLRE SYECOM+25 : 3080 
50 01 Ab 9A 123 20$: NOV ZBL VICE_TYPE, RO ; 3089 
50 ; i 179 MAX_VALUE, RO : 3090 
1F 0017C BLSSU F 
1 03 Ve TSTL VERSION : 3091 
05 13 0018 BEQL 1$ : 
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Routine HANDLER (sig, mech ) = 


! aee 

i 
This condition handler gets control on any signalled 
condition in order to save the highest severity error 
to be returned by exit from the image. 


o 
oO 


1 

t 

4 

! 

] 

; signal_args = Address of signal orqunent list 
mechanism_args = Address of mechanism argument List 
! 

! 

' 

' 

! 


i Outputs: 
WORST_ERROR is updated with highest severity error. 


a 


—SOOONAVSWN (“OO OONOUSWN—O 


MAP ! Standard VMS condition handler parameters. 
sig: REF S$BBLOCK, ! Address of signal argument List 
mech: REF SBBLOCK; ! Address of mechanism argument List 


BIND 
COND = SIGCCHFSL_SIG_NAMEJ: SBBLOCK ;! Condition 


AOA BB PEEP LLL 


If .COND eql RMS$_EOF then return true; 


If .cond(sts$v_fac_no] eql erf$_facility then 
return ss$_resignal; 


eur 


DARE AAAAAAAA AAA AAA A AAA AAS 


If 
. -cond(sts$v_severity] gtru .worst_error ([sts$v_severity] 
n 


oe worst_error = .cond or sts$m_inhib_msg; 

639 sig(chf$l_sig_args] = .si Cohf$t_sig_grgs) - 2; ! Dont count pc/psl 
640 Sputmsg ( msgvec = sigtch $l_sig_args], ogtrts = write_err_msg); 

oe) sig(chf$l_sig_args) = .siglchf$l-sig_args] + 2; 

ak ss$_resignal ! Continue signalling 


ms 
eh a a “a 9s sd — as —s - — —  6s —s —s —s 1s 1s ss 9 1 2s a ss 4 ss ss ss 


C809 0908 SIN NI NINN NNO OO 


o meanest 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
BEGIN 
External worst_error: $BBLOCK CLONG) ; ! Holds worst error encountered 


0000 HANDLER:.WORD Save R2,R3 
00 MOVAB RST ERROR, R3 


000c 
gj cooomegs 09° me 


9 
Sep-1984 23:42:14  VAX=11 BLiss-32_¥4.0-74 Page 95 
~eb=198e 12:39:17 — DISKSUNGMASTERSCERF oSRCSERF.032;1 "29% 39} 


3 3135 
+ 3163 


- 
| 


9 

RF log R Formatt 1 -1 14 VAX-11 Bliss-32_V 96 
foe -000 es ere 15 Seen 18Re F3:39:13 «| Pee ednGAlSfeacceae secSerr.es2;1 2% se 
0001827A BF 04 A2 01 CMPL  4(R2), #98938 ; 3167 

50 BF 8 8001 ee. nO : 

Be 1A RET ; ; 
08 06 A2 0c 0 FD 1B 1$ CHPZV ‘ , #12, 6(R2), #8 ; 3169 
50 6 08 EF EXTIV #0, a. Y WOR 1 ERROR, RO : 3173 

Ce, 3 i chety 0. ; 
63 04 az 10000000 =F 0 BISL 4268435456, sens. WORST_ERROR + 3175 
' g Se Boose RUBE Bee {Re : 3158 

00000000v 0 OF PUSHAB WRIT t _ERR_MSG : 

DD 0 44 PUSHL R2 ; 

000000006 0 4 FB 46 CALLS #4, SYSSPUTMSG : 
2 02 § 004D ADDL2 as (R2) ; 3179 
0918 &8F 3¢ 90050 3$ MOVZWL #2528, RO ; 3183 


; Routine Size: 86 bytes, Routine Base: S$CODE + 14FC 
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-000 ™ 1e-8ep= 188 §3:59:1F «= NES SnGhaSfenccene sacderr.032;1 2% 33) vo 
; ral } ¢ ! peutoae WRITE_ERR_MSG (Error_msg_desc) = 
; eas 186 1! 
: : 1 ; This routine writes the error message to the output file. 
3 6 ¢ $ Inputs: 
3 ¢ 13) ; error_msg_desc = Address of descriptor for message 
3 $ 138 ' Outputs: 
; 26 ; 195 1! 
3; 26 1 1 i--- 
; 2660 19 Begin 
3; 2661 138 
3 666 1 Local 
; vets Rmserror; 
: 2665 0¢ Map 
: 286 B7 Error_msg_desc : REF BLOCKC,BYTE); 
3 668 05 2 If .Lstlun_rab_address EQL 0 then return false; 
3 2670 09 Lstlun_rab_address(rab$l_rbf] = .error_msg_desc(dsc$a_pointer); 
: 34 oS Lstlun_rab_address(rab$w_rsz] = .error_msg_descldsc$w_lengthJ; 
: 267 10 If NOT (rmserror = Sput (rab = .Lstlun_ es _address)) then 
: or $13 ( Signal (.rmserror); Return .rmserror); 
3 676 218 Return false; 


.EXTRN SYSSPUT 
0004 00000 WRITE_ERR_MSG: 
QoRD 


2 Save R2 : 3184 
51 000000006 99 i 900 HOVL LSTLUN. RAB_ADDRESS, R1 : 3205 
50 04 AC 0008 MOVL GRROR. MSG DESC, RO : 3207 
38 Al 4 AO 3 O00F MOVL 4(R stOcr : 
ae 0 . 0014 MOVW (RO), : 3208 
1 9 18 PUSHL 1 : 3210 
000000006 99 1 pe 1A CALLS #1, SYSS$PUT 3 
2 dO 00021 VL RO, RMSERROR : 
E 4 BLBS RMSERROR, 1$ ; 
DD 7 PUSHL RMSERR : 3211 
000000006 99 Q FB CALLS PBSSIGNAL : 
2 BO MOVL RMSERUDR RO ; 
50 Be p 1$: CLRL RO 3 3214 
4 RET : 


; Routine Size: 55 bytes, Routine Base: S$CODE + 1552 
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V04=000 . 12-8ee=13ke $3:3951F — DESKSUMEMASTERCCERE sacSerr.032;1 29398 vo 
: 2679 13 ! Global routine WRITE_BINARY (BUFFER, RAB) = 
: 2681 i$ 1 !eee- 
3 ¢ 18 1! 
3; 26 i } Functional description 
: 685 11 This routine accepts a pointer to a buffer and writes 
s § : : the buffer to an output stream in binary format. 
: 26 4 1 i Input parameters 
: $689 Be ft Aeeeeke 
5 230 $ : BUFFER = address of an input record buffer 
: 269 8 1! RAB = address of output rab 
; 269 9 1! 
3 694 0 1 leoee 
; $38 > 3 BEGIN 
; $99 z 
3; 2698 4 MAP 
3; 2699 5 rab: ref $bblock, ' Pointer to rab 
; A § butters ref $bblock; ! Describe the input buffer 
: 270 8 2 LOCAL 
3 At +4 desc: vector (2, long); ! Temporary string descriptor 
: 2705 41 
3 re ¢g If .rab eql 0 then return true; ! Exit immediately if no output 
: 2708 4a 2! 
3; 2709 45 i INITIALIZE THE RAB 
3 Ay! r¢ } Store the buffer address and length in the RAB. 
: 271 34 
; ng rh rab Crab$l_rbf] = .buffer ! Store buffer address in RAB 
: at $20 rab Crab$w_rsz] = .input_ "rabCrab$w_ rs2J; i Store buffer size in RAB 
: 271 § 
: hig $38 
3; 2718 54 
3 2719 55 ‘RITE TO FILE --- 
; 2720 $ Output the buffer via RMS. 
3 1 5 
3 e7 g P 35 CALL_FUNCTION ($put ( ' Call RMS with 
3 2726 P 3260 rab = .rab ' record stream identifier 
3 z 5 2 err = log_filename)); ! error action routine 
: 27 $ $¢ return true: 
3; 2728 64 3 
0098 606 ENTRY WRITE_BINARY, Save nothing ; 3215 
5E 08 C2 0000 SUBL2 48, SP 3 


<2 
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¥04=000 hee Veneer HSS F3:35:13 Pehl eta eee see Seer.es2:1 89% :38) 
50 08 ac MOVL RAB, RO 3 326 
38 ap 4 kt i ; Sout BuEFER 40(RO) : wn 
A G 1 MOVW  —sINP T RAB +34, 34(RO) : 38 
sunette BP Rit — 1 ae 
000000006 F CALLS SYSSPUT : 
5 
& BLBC = STAT Tus ay : 
1 BO A 1$: MOVL 1. ; 3 63 
4 00020 2$ RET 3 3264 


; Routine Size: 46 bytes, Routine Base: S$CODE + 1589 
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-EXTRN LIBSSIGNAL, LIBSSTOP 


: PSECT SUMMARY 

; Name Bytes Attributes 

; SOWNS 160 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
3; SPLIT 508 NOVEC.NOWRT, RD ;NOEXE -NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
; S$GLOBALS 198 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
; SCODE 5559 NOVEC.NOWRT, RD. EXE. NOSHR, LCL, REL, CON, PIC,ALIGN(2) 
: Library Statistics 

Foigty J: rege *§ = “hi ios 1) enna Symbols -------- Pages Processing 

3 File Total Loaded Percent Mapped Time 

: _$255$DUA28: CSYSLIBILIB.L32;1 18619 115 0 1000 00:02.1 

3 COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL, OPTIMIZE) /LIS=LISS$:ERF/OBJ=0BJ$:ERF MSRC$:ERF/UPDATE=(ENHS:ERF ) 

3: 2732 8 0 

3; Size: 3268 c qe + 866 data bytes 

; Run Time: 1:27.9 

3; Elapsed Time: 3:04.5 

3 Lines/CPU Min: 2230 


ERF 
v04-000 


; Lexeme 
; Memor 
1 Eonntler 
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AL EQUIPMENT CORPORATION 
DENTIAL AND PROPRIETARY 


DIGI 
VAX/VMS V4.0 CONF 


IGIT 
ONFI 


